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ABSTRACT 

In  response  to  a  recognized  requirement  for  a  more  uniform  man 
machine  interface,  especially  in  multiple  machine  networks,  a  standard- 
ized text  editor  was  proposed  (1).  This  editor,  "SLED"  was  designed  to 
be  easily  implementable  in  several  commonly  available  higher  level 
languages.  This  document  reviews  two  baseline  implementations  taken 
directly  from  the  SLED  standards  which  users  may  want  to  consider  when 
implementing  SLED  upon  local  systems.  These  baseline  programs  were 
written  and  documented  with  portability  and  understandabil ity  as  goals. 

BACKGROUND 


During  the  Winter  of  1979  and  Spring  of  1980,  shortly  after  the 
Standard  Line  EDitor  definition  was  first  developed,  several  persons  at 
the  Naval  Postgraduate  School  undertook  implementations  of  SLED.  Two  of 
these  implementations  --  the  documentation  and  the  code  --  are  repro- 
duced here. 


Appendix  A  contains  the  SLED  implementation  developed  by  C.  F. 
Taylor,  Jr.  on  an  IBM  360  system  in  FORTRAN.  Appendix  B  contains  an 
alternate  implementation  developed  by  R.  M.  Burnham,  R.  J.  Coulter,  and 
S.  W.  Smart  in  the  PASCAL  language. 


Neither  of  these  implementations  should  be  considered  "off  the 
shelf"  commercial  quality  software  ready  for  installation.  These  sys- 
tems do  however  provide  two  critical  portions  of  the  implementation: 


1.  Each  contains  the  basic  code  in  a  "portable"  higher  level 
language,  and 

2.  The  code  of  each  implementation  is  written  for  readability, 


and  the  documentation  has  been   written  to  allow  the  program  to  be 
adapted  to  any  system  with  a  minimum  of  difficulty. 

It  is  hoped  that  these  baseline  programs  will  serve  to  facili- 
tate the  implementation  of  the  SLED  man  machine  interface  on  a  variety 
of  machines. 
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Appendix  A 
SLED  FORTRAN  Implementation 
(by  C.  F.  Taylor  Jr. ) 

The  purpose  of  these  notes  is  to  briefly  describe  the  accompany- 
ing FORTRAN  implementation  of  SLED. 

SLED  FORTRAN  Version  F0RT1.1  was  implemented  on  an  IBM  360/67 
computer  under  the  CP/CMS  time-sharing  operating  system  at  the  W.  R. 
Church  Computer  Center  at  the  Naval  Postgraduate  School  ,  in  a  superset 
of  IBM  FORTRAN  IV,  Level  G,  which  included  the  "IF-THEN-ELSE"  and 
"WHILE-DO"  constructs  of  WATFIV-S.  The  addition  of  these  two  constructs 
greatly  simplified  the  writing  of  the  program  and  were  implemented  with 
the  aid  of  a  preprocessor  written  by  this  author.  Standard  FORTRAN  ver- 
sion (the  output  of  the  preprocessor)  is  shown  on  the  following  pages. 
This  version  was  compiled  using  an  IBM  FORTRAN  IV/G  compiler. 

The  package  was  implemented  using  the  utility  routines  shown  on 
pages  A37-A40  of  the  listings,  The  'TDISK  EXEC"  module  was  used  to 
obtain  the  required  disk  space  for  the  4000  line  (320K  byte)  temporary 
work  file.  It  is  assumed  that  this  work  space  would  be  provided  at  the 
system  level  in  any  actual  implementation  of  SLED.  Because  it  is  a 
direct-access  disk  file,  sufficient  space  must  be  availabe  in  advance 
for  the  maximum  capacity  of  the  editor,  which  in  this  case  is  4000 
lines.  This  figure  was  selected  somewhat  arbitrarily;  CP/CMS  gives  the 
user  800  bytes  per  track  (IBM  2314),  using  the  remaining  space  for  over- 
head, so  at  80  bytes  per  line,  4000  lines  represents  400  tracks. 
Installations  which  do  not  need  to  edit  such  large  files  could  reduce 
disk  requirements  by  further  limiting  the  capacity  of  the  editor  as  fol- 
lows: 

1.  Do  a  global  substitution  to  replace  the  string  '4000'  in  the 
program  by  the  new  capacity. 

2.  Modify  the  'DEFINE  FILE'  statement  in  subroutine  MEMORY  as 
necessary. 

3.  Alter  the  FILEDEF  statement  in  'SLED1  EXEC  (or  the 
equivalent  action  on  another  system)  to  request  less  disk  space. 

The  basic  data  structures  used  are  as  follows:  The  file  to  be 
edited  (unless  a  new  file  is  being  established)  is  read  in  sequentially 
by  subroutine  OPEN  and  stored  in  the  work  file  (described  above)  which 
is  conceptually  a  4000  line  by  80  column  array.  All  references  to  the 
work  file  are  made  through  calls  to  subroutine  MEMORY.  The  lines  of  the 
work  file  are  not  necessarily  kept  in  order.  A  4000  element  from  the 
file  is  determined  by  popping  the  top  element  from  the  stack.  This 
value  is  then  recorded  in  the  4000  element  array  LPTR.  LPTR(I)  then 
always  gives  the  address  in  the  work  file  of  the  Ith  line  of  the  text 
file.   As  lines  are  deleted,  their  addresses  are  pushed  back  onto 


additions  and  deletions  of  lines  by  manipulating  pointers  rather  than 
the  text  itself.  Still,  the  work  file  may  be  accessed  sequentially  by 
using  LPTR(I)   as  the  index. 

Input  from  the  terminal  is  buffered  in  a  circular  queue  in  sub- 
routine GETLIN.  This  permits  the  "stacking"  of  more  than  one  command 
per  line  at  the  terminal.  Calls  to  GETLIN  return  a  line  from  the  head 
of  the  queue  or,  if  the  queue  is  empty  it  reads  in  a  new  line  from  the 
terminal . 

The  QUIT  subroutine  writes  the  work  file  sequentially  (using 
LPTR  as  an  index)   to  the  output  file. 

Additional  notes  which  may  be  of  interest  to  the  local  implemen- 
tor  follow:      (including  deviations  from  the  SLED  standard). 

1.  Integer*2  variables  were  used  for  all  character  storage  (and 
for  the  two  large  arrays  STACK  and  LPTR).  Only  one  character  was  stored 
per  word. 

2.  Because  FORTRAN  reads  only  fixed-length  formatted  records 
from  the  terminal ,  the  carriage  return  cannot  be  used  to  terminate  a 
string.  This  means  that  'DS'  and  'RS1  commands  must  use  the  logical 
terminator  character  (default  '$')  to  terminate  strings  and  that  the 
'RS'   command  should  be  used  as  follows:     RS$strl$str2$. 

3.  The  'RS'  command  replaces  only  the  first  occurrence  of  a 
string  in  a  line  because  of  this  author's  firm  conviction  that  to  allow 
only  multiple  substitution  would  be  dangerous.  In  an  editor  such  as 
this  without  a  TAB  function,  a  common  string  substitution  would  be  to 
replace  one  blank  with  two  blanks  on  a  line.  What  would  happen  if  this 
were  done  for  every  occurrrence  of  a  blank  on  the  line  is  too  horrible 
to  contemplate. 

4.  The  CP/CMS  operating  system  and  IBM  FORTRAN  required  that 
filenames  be  handled  external  to  the  program  itself.  The  routine  'SLED 
EXEC  executes  the  simple  program  'SLEDVERS'  when  'SLED'  is  typed  to 
alert  the  user  to  the  required  entry  procedure,  'SLED1  <filename>  <file- 
type>'.  SLED1  EXEC  then  invokes  the  actual  edit  program,  SLED2.  The 
filename  given  the  program  internally  is  meaningless  and  provided  only 
for  cosmetic  reasons.  This  system  requires  that  only  one  file  be  opened 
per  session. 

5.  Another  limitation  of  FORTRAN  required  that  the  program  read 
input  from  the  line  following  the  program  prompt,   not  a  serious   problem. 
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CALL    RSI  I NL I  ME) 

GO     TO    2  00 
CONTINUE 
IF     MCl.NE.R  )  .UR.(  C2.NE.L)  )     GO    TO    40 

CALL    RLUNLIME) 

GO     TO    2  00 
CONTINUE 
IF     ( (Cl.NE. A).OR.( C2.NE.L) )     GO    TO    50 

LALL    AL( INLINE) 

GO    TO  2  00 
CONTINUE 
IF  ( (Cl.NE. 0) .OR .( C2.NE.SI )  GO  TO  60 

CALL  OS ( INLINE) 

GO  TO  2  00 
CONTINUE 
IF  (Cl.NE.O)  GO  TO  70 

CALL  JUIT 

FLAG  =  .FALSE. 

GO  TO  2  00 
CONT  INUE 
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CONTINUE 
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WHILE     (  U.LE.N2)  .  AND.  (  I.LT  .EOF)  )     Ou 

CALL    MEMORY     (FETCH  ,OUTL I N , LP Tk (  I  >) 
WR  ITE     OUT , 2  113 )      I  ,     10 TL IN 
CURLIN    =     I 
1     =     1*1 
END    WHILE 

IF     (I.GE.EOF)     WRITE     (OUT, 2120) 
END     IF 
END     IF 
RETURN 
END 


SUBROUTINE    SCREEN(CLINE) 
C 
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1  /BLK2/     LPTR,  MAXLIN.E'JF 

2  /QLK5/     MFLAGf ERRCTf CJRLIN 
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END 
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SUBROUTINE  RL(CLINE) 

C 

C         REPLACES  CURRENT  LINE  3R  THE  SPECIFIFO  LINE  OR  LINES  *ITH 

C         ANY  NUMBER  UF  LINES 

C 

CCMMON  /BLKi/  IN, OUT 

1  /BLK2/  LPTRf MAXLI N, EOF 

2  /3LK5/  MFLAG, ERRCT, CJ^L IN 

INTEGER     IN,  JUT  iMAXL IN ,EGF ,ERRCT ,  CURL  IN,  I,  Nl  ,N2,  I  ,  J,L  I  -1 1  T  , 
I  STORE 

INTEGEK*2    LL I NE» L PTR , 3LNK 
LOGICAL    MFLA^,EFLAG 
DIMENSIUN    CLINEI  BO)  ,LPTR{  <*0  00) 
DATA     BLNK/«     •/, STORE/1/ 
2  10  0  FORMAT    (•     -INVALID    COMMAND-') 

Nl    -    CURLIN 
N2    =    Nl 
L  DETERMINE    WHICH    LINE(S)     TO    REPLACE 

IF     (CLINE< 3) .NE.BLNK)     THEN    DO 

CALL    CGMLINI JtCLINEr Nl »N2r EFLAG ) 
IF     (Nl     .LE.     0)    EFLAG    =     .TRUE. 
IF     (Nl     .GE.     EOF)     EFLAG    =    .TRUE. 
IF     (.NOT.    EFLAG)    CURLIN    =    Nl 
END    IF 
IF    (EFLAG)     THEN    DO 

ERRCT    =    ERRCT    ♦    1 
*RITE     (OUT, 2100) 
ELSE    00 

ERRCT    =    0 

IF  (N2  .G£.  EOF)  N2  =  EOF  -  1 
C  REMOVE  DESIGNATED  LINES  ** 

N  =  N2  -  Nl  *  I 
DO  20  I  -  l,N 

LIMIT  =  EOF  -  2 
CALL  PUSH(LPTR(Nl )) 
DO  10  J  =  Nl, LIMIT 

LPTR(J)  =  LPTRU  +  1  ) 
10  CONTINUE 

EOF  =  EOF  -  1 
20  CONTINUE 

C  NOW  INPUT  REPLACEMENT  LINES 

CALL  INPUT 
END  IF 
RETURN 
END 

SUBROUTINE  AL(CLINE) 
C 
C         INPJT  TEXT  AFTER  LINE  N 


COMMON     /3LK1/  IN, OUT 
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FILE:     SLED  FORTRAN       U  NAVAL    POSTGRADUATE    SCHOOL 

1  /3L.s5/    MFLAGt  ERRCT,CJRLIN 

INTEGER*?    8LNK, CLINE 

INTEGER     IN.OUT  ,  [ , J,N,Nl  rN2 f ERRCT , CURL  IN 
LOGICAL    MFLAG, EFLAG 
DIMENSION    CLINEi 30) 
DATA    BLNK/«     • / 
2100  FORMAT     (•     -INVALID    COMMAND-1) 

C 

C  EXTRACT     LINE     NIMBER    FROM    COMMAND     LINE 

CALL    COMLIN(  3  ,CLINE,Nl, N2,EFLA3) 
IF     (Nl     .LT.     01     EFLAG    =     .TRUE. 
N    =    Nl 
I  F     ( EFLAG)     THEN    00 

ERRCT    =    ERRCT    ♦•    1 
WRITE     (OUT, 2100) 
ELSE    00 

ERRCT    =    0 
CURL  IN    =    N    ♦     I 
CALL     INPUT 
END    IF 
RETURN 
END 

SUBROUTINE    OS(CLINE) 
C 

C  PART    OF    SLED    PACKAGE 

C  DISPLAYS    ALL     LINES    CONTAINING    THE    DESIGNATED    STRING,     P3SSIBLY 

C  LIMITED    TO    LINES    N    THROUGH    M. 

C 

COMMON    /Bi_Kl/     IN, OUT 

1  /3LK2/    LPTR.MAXL IN, EOF 

2  /8LK5/     MFLAG, ERRCT ,CURLIN 

INTEGER     IN,UUT,MAXLIN, EOF, ERRCT, CURL  IN, N1,N2,NC, FETCH, MCI 
INTEGER* 2    CLINE, LP TR,flLNK, STRING, LINE 
LOGICAL    MFLAG, EFLAG, MATCH, FOUND 

DIMENSION    CLINE (80), LINE! 80), LP TR( 40 00 ), STRING! 30) 
DATA    8LNK/§     •/, FETCH/0/ 
2100  FORMAT     (•     -I N V AL I D    COMM AND- ' ) 

2110  FORMAT    (•     • , I  4 , 1 X  ,80A1 ) 

2220  FORMAT     ('     OLD    STRING?>') 

2250  FORMAT    (•    -NO    STRING    F0UN0-') 

C 

C  DEFAULT    VALUES 

FOUND  =  .FALSE. 
EFLAG  =  .FALSE. 
Nl    *    1 

N2    =    EOF    -    1 
C  DETERMINE    WHETHER    Nl,N2    WERE    SPECIFIED    3Y    USER 

IF     (CLINEI3)     .NE.     BLNK)     THEN    DO 

CALL    C0MLIN(3,CLINE,NI ,N2, EFLAG) 
Ii-     (Nl     .GE.     EOF)     EFLAG    =    .TRUE. 
IF     m2    .GE.     EOF)     N2    =    EOF    -     1 
IF     (Nl     .LE.     0)     Nl    =     1 
END    IF 
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FILE:     SLED  FORTRAN       Tl  "4  AVAL     pO  ST  JR  ADUA  FE     SCHOOL 

IF    ( EFLAG)     THFN    OU 

ERKCr    =     tRRCT    ♦■     L 
WRl  TE     ((JUT, 2100) 
ELSE    OU 

ER RCT    =     0 
C  FETCH    STRING;     ISSUE     PROMPT     IF    NECESSARY 

IF     {.NOT.     4FLAG)     WRITE     (OUT,  2220) 
CALL    GETLI^     (STRING, NC  ) 
IF     (NC     . LE.     0)     THEN    OU 
ERRCT    =    ERRCT    ♦     L 
WRITE     (OUT,2L00) 
ELSE    DO 

00    ZO    I    =    N1,N2 

CALL  MEMORY ( FETCH, LINE, LPTR(  I)) 
CALL  SEARCH*  LINE, STR IN G,NC , MATCH, MCI) 
IF  (MATCH)  THEN  00 
FOUNO  =  .TRUE. 
WRI  TE  (OUT, 21 10)  I  ,  LINE 
CURL  IN  =  I 
END  IF 
20  CONTINUE 

IF  (.NUT.  FOUNO)  WRITF  (OUT, 22^0) 
END  IF 
END  IF 
RE  TURN 
END 

SUBROUTINE  RS(CLINE) 
C 

C         PART  OF  SLEO  PACKAGE 

C         REPLACE^  THE  FIRST  OCCJRRENCE  OF  STRING!  WITH  STRING2  UN  THE 
C         CURRENT  LINE  UR  WITHIN  THE  SPECIFIEO  RANGE  OF  LINES 
C 

COMMON  /3LK1/  IN, OUT 

1  /3LK2/    LPTR,MAXLIN,EOF 

2  /3LK5/    MFLAG, ERRCT, CURLIN 

INTEGER     IN,UUT,MAXLIN,EOF,ERRCT,CURLlN,NL ,N2,I,J,K,L,M, 
I  N, MCI  ,NC  L,NC2, FETCH, STORE 

INTEGER* 2    CL I NE, L PTR, BLNK.S TR1 ,  STR2  ,L  INE 

DIMENSION    LPTRUOOQ)  ,CLINE(  30)  , STRLt  SO)  ,STR2(  30)  ,LINE(  30  ) 
DATA    BLNK/'     ♦/, F E TCH/ 0/ , STORE/ i / 
LOGICAL    MF LAG, FOUND, MAT CHfE FLAG 
2100  FORMAT    (•    -INVALID    COMMAND-') 

2110  FORMAT     {•     • f I^flX.aOAil 

2230  FORMAT    (•     OLD    STRING?>'  ) 

2240  FORMAT    (•     NEW    STRING?>,> 

2250  FORMAT     {•     -NO    STRING    FOUND-') 

C 

C  DEFAULT    CONDITIONS 

Nl    =    CURLIN 
N2    =    NL 

EFLAG    =    .FALSE. 
C  INTERPRET    CUMMANO    LINE 

IF    (CLINE( 3) .NE.BLNK)     THEN    DO 

CALL  COMi_lN(  3,CLINE,NL  ,N2,  EFLAG  ) 
IF  (NL  .LE.  0)  EFLAG  =  .TRUE. 
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FILE:     SLED  FORTRAN       Tl  NAVAL     POSTGRADUATE    SCHCOl 

IF     (Nl     .GE.     EOF)     EFLAo    =     .TRUE. 
IF     (N2     .GE.     EOF)     N2     =     EOF     -     L 
END     IF 
IF     (EFLA3)     THEN    DO 

ERRCT    =    ERRCT    +    1 
WRITE     (OUT,2i00l 
ELSE    DO 

ERr^CT    =    0 
C  READ     IN    TWO     STRINGS;     PROMPT     IF    NECESSARY 

IF     (.NUT.     MFLAG)     WRITE     (OUT,  2230  J 
CALL    oETLINI STR  L,NCl ) 
IF     (NCI     .LE.     0)     EFLAG    =    .TRUE. 
IF     (.NUT.     4FLAG)     WRITE     (OUT, 2240) 
CALL    GETLIN( STR2,NC2) 
IF     (EFLAG)     THEN    DO 

ERRCT    =    ERRCT    +     i 
WRITE    (OUT, 21 00) 
RETURN 
END     IF 
C  NOW    FIND    STRING1 

FOUND    =     .FALSE. 
DO    50    K    =    Nl,N2 

CALL    MEMORY (FETCH, LINE, LPTR(K) ) 
CALL    SEARCH!  LINE,  STR  L  , NCI  r MATCH,  '4Ci  ) 
IF     (MATCH)     THEN    00 
C  NOW    MAKE     SUBSTITUTION 

J     =    MCI 

FOUND    =     .TRUE. 
C  DELETE    STRI.NGl 

00    20    I     =     UNCI 

DO     10    M    =  ,J,7  9 

LINE(M)     =     LINE(M+l) 
LO  CONTINUE 

20  CONTINUE 

C  NOW    MAKE     ROOM    FOR     STRING2 

IF     (NC2     .GT.     0)     THEN    DO 
DO    40    L    =    l,NC2 
M    =     31    -     J 
DO    3  0    I     =     2,M 

HNE(  32-1  )     =    LINE  (31-1  ) 
30  CONTINUE 

40  CONTINUE 

C  NOW     INSFRT    NEW    STRING 

DO    45     I    =     l,NC2 

LINE  ( JM-1  )    =     STR2  (  I  ) 
4  5  CONTINUE 

ENO    IF 
C  STORE    REVISED    LINE 

CALL    MEMORY ( STORE , LINE, LPTR ( K )) 
C  01  SPLAY     REVI SEO    L I NE 

C  WRITE     (OUT, 2110)     K,LINF 

C  REMOVE     "C"     IN    CC     I    OF     ABOVE     LME     TO    ENABLE 

C  DISPLAY    OF    EACH    LINE     IN    WHICH    A     STRING     (AS    BrEN 

C  REPLACE J 

CU»LIN    =     K 
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50 


END 

CONTINUE 
If-  (.NOT 


IF 

FOUND!  wRITC  (OUT, 2250) 


FND  IF 
RETURN 
ENO 
SUBROUTINE 


cr 


ANY  VALID  CHARACTER 


PART  OF  SLED  PACKAGE 

CHANGES  THE  MESSAGE  TERMINATOR  TO 

COMMON  /BLKl/  INT, OUT 

1  /BLK4/  TCHAR 

2  /BLK5/     MFLAG,ER*CT,CURLIN 
INTEGER     IN,OUT,£RRCT,CURLIN,NC 
INTEGER* 2    TCHAR, I NLI N#8 LNK 
LOGICAL    MFLAii 

01  MENS  UN     INLINI80) 

DATA    BLNK/'     •/ 
10  0  FORMAT     (•     -INVALID    COMMAND-1) 

200  FORMAT    (»     TERMIN A  TOR ?> •  ) 

IF     ( .NOT.     MFLAGJ     THEN    DO 
ISSUE    PROMPT 
WRITE    (GUT, 22001 
FND     IF 

CALL    GETLINI INLIN,NC) 

IF    ( (NC. EQ.O) .OR. (INLIN(I) .EQ.BLNK) )     THEM    00 
ERRCT    =    ERRCT    >    L 
WRITE     (OUT, 2100) 
ELSE    00 

TCHAR     =     INLIN(I) 
END     IF 
RE  TURN 
END 
SUBROUTINE    MENU 


ZOO 


201 


*  PART  OF  SLED  PACKAGE 
PROVIDES  USER  WITH  A 
ANO  THEIR  FORMATS. 

COMMON  /BLKI/  IN, OUT 

INTEGER  IN, JUT 

FORMAT  (•  SLED  COMMAND 


SUMMARY  OF  AVAILABLE  COMMANDS 


SUMMARY 


L  INF /TEX 


'// 

i*  ,T10  ,  ■  INSERT 
<S>TRING« 


JW,  •  RSN$P$ 
THRU  »<   , T4Q 


STRING  REPLACEMENT* /3X, • ALN 
T40.  'RSiPiUi'  ,T<+3,  '<R>EPLACE 
•<R>EPLACE  <L>INE  N  .OR.1 
3X, «RLN,M' 

•INOICATED  LINES. •/•  OUTPUT  COMMANDS 
3X,' L' , T10, 'DISPLAY  CURRENT  <L>  I  N E '  ,  T<VO  , 
,<D>ISPLAY  LINES  V3X , » LN * , T10 , ' OR  LINE  N.» 
•WITH  <S>TRING  " P" , • /3X , • LN , M • , T I  0 , ♦ L I  Mb S  N 
•DSN,M$P$» ,T^H,«OR  SHOW  ANY  LIMES') 
FORMAT  I 3X, »S( ,TiO, »<S>HOW  A  », 


,/3 
}$•  , 

RSN, 
,T38 


T     INSERT'  ,T3'1, 

<A>FTER     <L>INE    N 
X  ,  •  K  I  N  »  ,  T  L  ,) , 
T  5  0 , '"  P "     W I  T  I 
M$P$\}S'  ,  T52, 
,«  STRING    SEARCH' / 
*P$«  ,  T'+B, 
,  T  5  0  , 
THRU    M' ,T 


0"     IN'/ 


"•SCREEN"    OF     LINES'  ,T50  ,'N-M    CONTAINING 


♦  0 


/  4  X  ,  •  SN  •  ,  T  I   ) 
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NAVAL  POSTGRADUATE  SCHffil. 


c 
c 
c 


3X, 

•  <u 

T52 
5X, 
•AT 

WR  ITE 
WRI  TE 

RETURN 

END 

SU8R0U 


UW  A 


.REfc.N  FROM  LINE  N» ,T38 , ' CUNT ROL 


;jmmandsv 

•  ,  i  • 


>PEN  A  FILE  JR' /3X , 
,  •GREAT t  A  FILE  FOM 
•TO  <0>UIT  THE  EDIT 
JR'  ) 

(OUT, 2UO) 
(  OUT, 201  ) 


TINE     VERS 


V  ,  T  LO,  '  SHOW    <V>uRjIJN     I  "IE  JR  1A  T  I  UN  '  . 

ED  [TING*  /T40,  '  CT        COHANGE     THE     LOGICAL* 

TYPF    »g<RET>"*  ,T<»0, 'MESSAGE    <r>ERMIN*, 


PAPT    UF     SLED    PACKAGE 


C 
C 
C 

c 

c 


CO 
IN 

220  FO 
1 

2 
3 
4 
5 
6 
7 
8 

221  FO 
9 

* 

2 

3 

4 

5N. 

6 

7/ 

222  FO 
1 

2 
WR 
wR 
WR 
RE 
EN 
SU 


MMON 

TEGER 
RMAT 

•  LU 

•  LI 
<E3 

EO 


/tJLKl/     IN,  OUT 

IN, OUT 
( '  SLED  V 
GAL  EXPEk 
NE  DELETE 
C  0 1  C  >  •  /  • 


P  S  T  /  ?  0  T  •  // 


AN 
AL 
TH 
RMAT 

•  (  L 

/• 


/ 

* 

i 
i 

•/ 


(  J 
(4 


(5) 


RMAT 

'  (6 

• 

ITE  I 
ITE  ( 
ITE  ( 

TURN 

D 

8R0UT 


TOR  LOG  I 

(i)  <RET 

CAN  BE 

INPUT  I 
FOLLOWI 

THE  UN 
FOR  A 
•  (  2)  0 
MAXIMU 
THE  US 
NEW  Fl 

WHEN 
TERMIU 
THE  RI 


ERSIUN    F0RT1.1    NPS     MONTEREY     800401*/ 
T     IS    C.     TAYLOR     408-6  46- 2  <><U     JHJ0-17)0 

KEY     IS    <    >     (ASCII)     OR    <CENT    SIGN>        •, 
CHARACTER    DELETE    KEY     IS    <<*>•// 
CAL    MESSAGE    TERMINATORS     ARE:1/ 
URN>  AND  (2)     <$>'// 

CHANGED    TO     ANY     STANDARD     FORTRAN    CHARACTER.'/ 
S    TRANSLATED    TO    UPPER    CASE.'/ 
NG    DEVIATIONS     FROM    SLED    STANDARD    WERE    REQUIRED 


) 


IV6RSAL  ENTRY  COMMAND  "SLED"  INVOKES  INSTRUCT IPNS 
NON-STANDARD  ENTRY:   "SLEDl  <F1LENAME>  <FILFTYP«=| 
MLY  ONE  FILE  PER  SESSION  CAN  8E  OPENED. V 
M  FILESIZE  IS  4000  LINES.'/ 

ER  IS  ASKED  TO  INDICATE  WHETHER  HE  IS  EDITING  A  ', 
LE  IN  ORDER  TO  PREVENT  A  DISK  READ  EP.ROR  IN  FOPTP, 
<RETURN>  IS  USED  AS  A  LOGICAL  MESSAGE  '/ 
ATOR,  THE  LINE  OR  STRING  IS  PADDED  WITH  BLANKS  UN 
GHT.   THIS  AFFECTS  THE  RS  FUNCTION  ONLY.') 


)   UNLY  T 
IS  REP 
OUT, 22  0) 
OUT, 221) 
OUT, 222) 


INE  OPEN 


HE  FIRST  OCCURRENCE  OF  A  STRING  IN 
LACED  TO  PERMIT  FREE  SUBSTITUTIONS 


EACH  LINE  •/ 
OF  3LANKS •  ) 


OPENS  TEXT  FILE  AND  WORKSPACE  FILE 
REAOS  TEXT  FILE  INTO  WORKSPACE  IF  IT 
INITIALIZES  POINTERS  ETC. 


ALREADY  EXISTS 


I 
Z 
3 
4 


CCMMCN 


/8LKI/ 
/8LK2/ 
/8LK3/ 
/8LK5/ 

/8LK6/ 


IN, OUT 

LPTRtMAXL IN, EOF 
TFILE 

MFLAG,ERRCT,CURLIN 
STACK, STKPTR 


INTEGER     IN,OUT,TFILE,LlNE,EPRCT ,CURL I N , STORE t MA  XL  IN ,EOF 
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REPLY  ,  siLI  NL 


100  ) 
2  04  0 
2050 
2  40  0 
2410 
2<*ZG 
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STKPTR,  I  tNC 
!NTcGER*2    LPTk,  STACK, FNAME, INLIN ,  YE  S  ,  NO  , 
LOGICAL     MFLAG 

0  [MENS  I  UN    LPTr  (  40D0)  »8L  INE<  80)  ,  STACK(  4000)  t  FNAME (  >30) 
DATA    VtS/'y/t  BLINE/80*1     '  /  ,NT7  •  N  •  /  ,  STORE  /  1  / 
FCR  4A V     (  30 A  1  ) 

FUfMAT    (♦     -»,I4,»     LINES     IN    FILF:        »,80A1) 
FORMAT     (•     -CHEAT  IMG    FILE:         '  ,8QAl) 
FORMAT     < '     F I LEN\ME?>* ) 
FCH  MAT     (•     IS     THIS     A    NEW     FILE?>») 
FORMAT     (•     -MAX    CAPACITY     400  0    LINES    EXCEEDED-*) 


INL  KM  Q0) 


INI 
MAX 
CUR 
KFA 
IF 
CAL 
ASK 
WRI 
R6A 
REP 
IF 
IF 


ELS 


END 

00 


20 


r  i  al  i 

LIN  = 
L  IN  = 
U  IN 
(  .NUT 
L  OFT 
WHET 
Tt  (U 
0  {  I  N 
LY  = 
(  (REi-* 
(RE°l 
WRI 
EOF 
STn 

*cr 

LPT 

CAL 
t  0) 
NUW 
LIN 
WHI 


END 
CUN 
IF 


ENO 
STK 

EOF 
TEL 
WRI 
IF 

20  I 
STA 

TIN  JE 


CCV 

re  ru«N 

END 

!>UBRHJr  I  ME  UOi  T 


ZE 

♦  000 

I 
FILENAME     (COSMETIC) 
.     MFLAG)     WRITE     (GUT, 2400) 
LI N( FNAME  ,  NC  ) 

HER     IT     IS    A    NEW     FILE    (TO     PREVENT    FjkTRAN    READ    ERROR) 
UT,24  10) 
,1000)     INLIN 
INLIN (II 

IY.NE .YES) .AND. (REPLY .NE. NO) )     GO    TO     5 
Y. Eg. YES)     THEN    00 
TE     (OUT, 2 050)     FNAME 

=     L 
PTR    =     i 

IVATE    FILE    WITH    AN    ACCESS 
«( L)     =    I 
L    ME^GRY( STORE, 3LINE,LPTR(  1)  ) 

RlAJ     IN    TEXT    F ILE 

E    -    0 

LE    (.TRUE.)    00 

READ    ITFILEf 1000. END=L0)     INLIN 

LPrR(LlNE+l)     =    LINE    ♦     1 

CALL    MEMORY  (STORE  ,  INL  I  N  ,LPTR  (  L  I  NE  *•  I  )  ) 

LINE    =    LINE    +     1 
WHILE 
TINUE 
(UNE.GE.MAXLIN  }     THEN    00 

WRITE    (OUT ,2420) 

STOP 
IF 
PTR    -    LINE    ♦    1 

=    STKPTR 
L    USER    FILE    OPEN 
TE     (OUT, 2040)     LINE, FNAME 

=     L,MAXLIN 
CKU)     =     I 
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FORTRAN   Tl 


NAVAL  POSTGRADUATE  ST  Hull  I 


C 

C 

c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 
c 


PART  OF  THE  SLED  PACKAGE 

CLOSES  U'JF  THE  *ORK  FILE  AND  WRITES  THE  NEW  OR  UPDATE') 

TEXT  FILE 

COMMON  /3LK2/  LPTR  ,MAXl  IN  »EUF 

1  /BLK3/  TFILE 

2  /3LK1/  IN, OUT 

INTEGER    MA XL  IN, IN, OUT ,ECF, TFILE, L,LrM[T 

INTEGER*2    LINE, LPTR 

01  MENS  I  ON    LPTR (4000)  , LINE (80) 
ZOOO  FORMAT     (30A1) 

2450  FORMAT     (•     -'.I^t1     LINES    WRITTEN-*) 

REWINO    TFILE 
LIMIT    =    EOF    -     I 
DC    9  0    L     =     I,  LI  MI  T 

CALL    MEMORY (FETCHtLINE  , LPTR { L)  ) 
WRITE     (TFILE, 2000)     LINE 
90  CONTINUE 

WRITE    (OUT, 2450)     LIMIT 
RETURN 
END 
SU6R0UT ME    MEMORY ( AC T ION ,L I NE , PTR2) 

PART    OF     SLED    PACKAGE 

HANDLES     ALL    MEMORY    REFERENCES    JSING    D  IP  EC T- ACC E SS    DISK    FILE 

CURRENT    CAPACITY     IS    4000    LINES 

REWUIRcS    AT    LEAST    3    DEOICATEO    CYLINDERS    OF    DISK     SPACt    FOR 

WORK    FILE    UNDER    CP/CMS     ON    AN    IBM     360/67 

COMMON    /t3LK3/     TFILE 
INTEGER    WFILE , TF I LE,ACT ION, STORE , PTR  ,  AVAR , t RR3 
INTEGER*2    LINE,PTR2 
DIMENSION    LINE<30) 
OATA     STORE/1/ 
1000  FORMAT     (30A1) 

DEFINE    WORK    F  ILE 

WFILE    =     L3 

DEFINE  FILE  i 3 (4000, 30, E , AV AR ) 

CONVERT  PTR2  FROM  INTESER*2  TO  INTEGER 

PTR    ^    PTR2 

INITIALIZE    REAO    ERROR    COUNTER    AND    BEGIN 

ERRS     =    0 

IF  (ACTION  .EQ.  STORE)  THEN  00 

WRITE  ( WE ILE'PTR,1000)  LINE 
ELSE  DO 

FETCH 
5  READ  (  WF ILE»PTR,1000  ,ERR  =  99)  LINE 

ENO  IF 
RE  TURN 
D  ^     ERRS  =  ERRS  ♦  I 

IF  (ERRS  .LT.  LO)  GO  TD  5 
STUP 
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FILE:  SLEU      FORTRAN   Tl  NAVAL  ^OSTGR  AOUAT  E  SCHOOL 

P  M  T 

SUBROUTINE     I.iPUT 

c 

C  IMPLEMENTS    THE     INPUT    MODE 

C 

COMMON    /3LKL/     IN  t  GUT 
L  /LJLK2/     LPTR.MAXL  IN, EOF 

2  /BLK5/     MFLAG  ,ERRCT, CURLIN 

[NTcGi£R*2    POT  LPTR  tBLNK,  OUTL  IN 

INTE  iEK     M4XLI  N,EOF,ERRCT,  CURLIN,  STOPF,  I,  J  ,  IN,  JUT  ,  NC 
LOGICAL    MFLAG 

UIMENSI  IN    LPTR (4000) f OUTL IN (30) 
im  \     P  )/'.*/, STORE/ L/ ,BLNK/ '     •  / 
2U0  FORMAT     (  »     I>»  ) 

C  IP    NQ    INPUT     IN    QUEUE,     PROMPT    JSE3 

IF     ( .NOT .MFLAG)     WRITE     (OUT, 2113) 
CALL    GETLIN(OUTLIN,NC) 

WhlLP     (  •NUT.  (  (GUTLINI  1  )  . EO.PO)  .  AND.(  OUTL  I   i(  2  )  .  E  G.BL  "IK)  )  )     r)0 
IF     (Ml     .oT.     0)     THEN    00 
C  UNLESS     IT    WAS    A    NULL    LINE 

C  MAKE    ROOM    FOR    NEW     INPUT 

IF     (CURLIN.LT. EOF)     THEN    00 
J    =     EOF    -    CURLIN 
00     10    I     =    L , J 

LPTR(EOF     ♦     I    -    I)     ■    LPTR(EDF    -     I) 
10  CONTINUE 

ELSE    DO 

CURLIN    =    EOF 
C  KEEPS    INPUT    TEXT    CONTIGUOUS 

ENO    IF 

EOF    =    EOF    +    1 
C  GET    A    NUMBER    FOR    NEW    LINE    FROM    STACK 

CALL    POP (LPTR(CURL IN) )       - 
C  NOw    STORE    THE    NEW    LINE 

CALL    MEMORY ( STOR £ , OU TL I N, L PTR ( CURL  IN >  ) 
CURLIN    =    CURLIN    >     1 
ENO    IF 
C  IF    NOTHING     IN    QUEUE,     PROMPT    USER 

IF     (.NOT. MFLAG)     WRITE     ( OU T , 2  I  1 0  ) 
CALL    GETLIN(OJTLIN,NC) 
ENO    WHILE 
RE  TURN 
lNO 

SUBROUTINE    GETL I NIOUTL IN ,NC ) 
C 

C  b£TS     A    LINE    FROM     TERMINAL;     QUEUES    U?     MULTIPLE     LINES 

r 

CCMMON  /BLKl/  IN, OUT 

1  /BLK4/     TCHAR 

2  /-3LK5/     MFLAG,  ERRCT,CJRL  IN 
INTEGER*2  I N L I N , 0 1 J  T  L I N »  Q U E  U  E , B  L  N K  ,  T 0  H A  R 

INTEGER     IN  ,QUT,£RRCT,CJRLIN,I  ,J,  KrLINELN,  >  J  ,  T.'ij  2,  NCNCHARS 
LOGICAL     MFLAG, NFL  AG 
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FILE:  SLED 


FORTRAN   Tl 


MAVAL  POSTGRADUATE  SCHOOL 
URS<  I 0) 


c 
c 


DIMENSION     INLINI  80)  ,  OUTLINE  80  J  t  OUEUE  <  30  ,  I  .))  ,  N 

DATA     rlLNK/'     •  /  ,L  [NELN/80/  ,8  J/0/  ,  E  NO  0/0/ 
1010  FORMAT     (83A1) 

20oO  FORMAT    (•     -TRUNCATED;     ONLY     10    ITEMS     PER    LINE-1 I 

2070  FORMAT     (•     -ILLEGAL    CHARACTER    03     BLANK    C0M1ANU-') 

MFLAG    GOES     TRUE    WHEN    MULTIPLE     INPUT    LlNtS    AKl     STACKED 
IF     ( .NUT.MFLAG)     THEN    03 

READ    ( INt L0i0fERR=99fEND=98)     INLIN 
I    =     L 

WHILE     ( ( I •LE.LINELN) ,AND,( INLIN( I) .Nc.TCHAR ) )    00 
OUTLINI  I  )     =    I  NLINU  ) 
1=1+1 

Emu   while 

NC     =     I     -     L 

IF  I INLIN(I) .EQ-TCHAR)  MFLAG  =  .TRUE. 
IF  ( I .LE.LINELN)  THEN  00 
DO  20  K  =  IfLINELN 

OUTLIN(K)  =  3LNK. 
2  0  CONTINUE 

END  IF 

WHILE  ( INLIN (I ).Eg.T CHAR)  QQ 
IF  (ENOg.GE.LO)  THhN  DO 
WRITE  (3UT,2060) 
INLIN(I)  =  3LNK 
ELSE  00 

ENDQ    =    ENDQ    +    1 
1=1+1 
J    =    i 

NFLAG    =     .TRUE. 

WHILE     <(  I. LE.LINELN)  .AND. (  INLINM  J.NE.TCHAP)  )     Dj 
QUEUE (J, ENDQ)     =     PILIN(I) 
IF     { INL  IN( I  ) .NF. 3LNK)     NFLAG     =    .FALSE. 
1=1+1 
J    =    J    +    1 
END    WHILE 

NCHARS(ENOQ)     =    J     -     I 

IF (< I. GT. LINELN) .AND. NFL AG)     NCHAR  S  (  ENOQ  )  =  0 
IF     (J. LE.LINELN)     THEN    00 
00    30    K     =    J, LINELN 

QUEUE! Kt ENDQ)    =    8LNK 
30       •  CONTINUE 

END    IF 
END     IF 
END    WHILE 
ELSE    00 

GET    LINE    FROM    QUEOE    INSTEAD 

80    =    BQ    +    L 

NC    =    NCHARS(BQ) 

00    40    I     =    i,  LINELN 

OUTLINI  I  )    =    QUEUE <  I  ,-JQ) 
40  CONTINUE 

IF     (6Q.EU.EN0Q)     THEN    DO 
BO     =    0 
ENOO    =     0 
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ULc:  St.  i  J 


Fi.RTRAN   Tl 


EN:) 
IF 


MFLAG  = 
IF 
END 
RE  TURN 
9o     CONTINUE 

REWIND  IN 
99      CONTINUE 

WRITE  (OUT, 2070) 
OUTLIN<  L  )  =  3LNK 
RETURN 
END 


VAL  ^nSTGRAUUATE  SCHiif  1 


FALSF. 


SUBROUTINE    PJSH(X) 
PUSHES    A    POINTER 
COMMON 


TO    A    FREE     LINE    ONT^     THE     STAC 


vML'Kl/     IN, OUT 
I  /JLKb/     STACK,  STKPTR 

INTEGER     STKPTR,! N, OUT 
INTEGER***    STACK, X 
DIMENSION    STACK(4000) 
2080  FORMAT     (•     -FREE    LINE    LIST     STAC<    OVERFLO*-' ) 

IF  (  ST\?TR.GT  .1  )  THEN  00 
STKPTR  =  STKPTR  -  1 
STACK(STKPTR)    =    X 

ELSE    00 

STACK    OVERFLOW 
WRITE     (UUT,2080J 
END     IF 
RETURN 
ENO 


SUBROUTINE    POP(X) 
i  POPS    A    POINTER    TO    A    FREE    LINE    FROM    THF     STACK 

CCMMON  /BLKL/     IN, OUT 

1  /B..K2/     LPTR,MAXLIN,E0F 

2  /ciLK6/     STACK, STKPTR 
INTEGER    STKPTR,MAXLIN,EOFtIN,OJT 
INTEGERS    STACK.LPTRtX 
DIMENSION    STACK!  4J00)  ,LPTR(  4000) 

20^0  FORMAT     (•     -ALL    SYSTEM    BUFFERS    FULL-') 

X    =     STACK!  STKPTR) 
IF     (STKPTR    .LT.    MAXLIN)     THEN    DO 

STKPTR    =     STKPTR    «■     1 
ELSE    DO 

WRITE     (OUT, 2090) 
END     IF 
RETURN 
END 
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r  [  |_  E  :     SLEO  FORTRAN       Tl  NAVAL     POSTGR  ADUATH    SCHi.ni 

SUBROUTINE    CNVRT < STRING rltJtN) 

C 

C         CONVERTS  CHARACTERS  I  THROUGH  J  OF  STRING  INTO  AN  INTEGER  N 

C 

INTEGER*2    STRING, DIGIT 
INTEGER    I,J,N,K,L 
DIMENSION    STRING  (80)  fOIGIT(  10) 

OAT  A    DIGIT/,0«f*l,,«2,t,3,t,4»,,5,t,6',,7','8'  f  »9«/ 
N    =     0 

DO  20  K  =  IiJ 
L  =  I 
WHILE  (STRING(K) .NE.DIGIT(L) )  00 

L  =  L  +  I 
END  WHILE 
IF  (L  .LE.  10)  THEN  00 

N  =  N  +  (L-l)  *<  L0**(  J-K  )  ) 
ELSE  00 

N  ^  -9999^999 
RETURN 
ENO  IF 
20  CONTINUE 

RETURN 
END 

SUBROUTINE  COML I N (C I , CL I NE ,N I , N2 , E F L AG ) 
C 

C         FINOS  AND  INTERPRETS  THE  LINE  NUMBERS  CONTAINED  ON  A 
C  CCMMANO  LINE.   CHECKS  FOR  ERR3RS. 

C 

INTEGER  CltNl  ,N2, I , J 
INTEGERS  CL I NE, 3LNK, COMMA 
LOGICAL  EFLAG 
DIMENSION  CLINE(80) 
OATA  BLNK/'  •/, COMMA/' , •/ 
EFLAG  =  .FALSE. 
C  FIND  FIHST  DIGIT 

I  =  Ci 
J  =  I 
WHILE  (  (CLINE ( J)  .NE.3LNK)  .AN0.(CLINE(  J)  .NE. COMMA)  )  03 

J  =  J  ♦  I 
END  WHILE 
IF  (J.GE.80)  THEN  DO 

EFLAG  =  .TRUE. 
ELSE  00 
C  CONVERT  FIRST  NUMBER  TO  AN  INTEGER 

CALL  CNVRTICLINE,  I  ,J-l  ,Nl ) 
C  LOOK  FOR  SECOND  NUMBER 

I  =  J  ♦■  I 
J  =  1 
WHILE  (CL  INEI J)  .NE.BLNK)  00 

J  =  J  ♦  I 
ENO  WHILE 
IF  (J  .GL".  80)  THEN  00 


22 


II- 


SLED 


PORTRAN        TL 

AG    =     .TRUE. 


naval   postgraduate  schi'.u 


EL 


it 


END 
IF 


EFL 

i)J 

IF 


ELS 


END 
IF 
IF 


(I     .EQ.    J)     THFN    03 

JO    SEC  UNO    NUMBER     EXISTS 

M2    =    Nl 
E    JO 

CUNVERT     SECOND    N'JMBE3 

CALL    CNVRT     ( CLINE t  I,J-l, N2) 
IF 
(Mi     .GT.     M2)     FFLA.,     =     .TRUE. 


END 
RE  TURN 

END 

suBsrur i  it 


°Af-  r  OF  SLEO 
SEARCHES  •  LI'] 
'MATCH*  IS  Sc 
•NC  IS  THE  N 
1  *4f.  I  •     IS     A  N    0 


SE ARC  H( L I NE  t STR INGf NC , MA T Ch, MCI  J 

PACKAGE 


£•     FOR    THE    FIKST    OCCURRENCE     JF     'STRING'. 
T     TO     '.TRUE.*      IF    A     MATCH     IS    FOUND. 
UMBER    OF    CHARACTERS     IN     'STRING'     (REQUIRED 
UTPUT    INDICATING    FIRST     COL    OF     «1ATCH 


INPUT) 


INTEGER     IfJ,LfNCtVCL 

INTEGER* 2    LINE, ST RING 

LOGICAL     MATCH 

01  MENS  I  UN    LINE (30)  ,STRING{30) 


J    =     I 

MATCH    =     .FALS 

WHILE     (  (  .NOT. 

WHILE     ( ( 

J    * 

END    WHIL 

IF     (J.LE 

I     =     I 

L    =    J 

WHILE 


END    M 
IF     (  I 


E. 

MATCH) .AND. (J.LE. BL-NC) )     DO 

STR  I  NGU  ).NE.L  INE(  J  )  )  .AND,  (J.LE.  U-NC)  )     03 
J    *     I 

E 

•81-NC)     THEN    DO 


END 
MCI 

RETURN 

END 


ELSE 

END 
END     I  F 

WHILE 
=     J 


I 


(( 

( 

L    = 

I    = 

HIL 

.E 

MAT 

00 
J    = 

F 


STRING( 1*1) .EQ.L I NE ( 1*1 ) )     .AND. 
(L*L)  .LT.80J.AN0.  (Ul.Lc.MO)     00 

L    ♦    1 

I    *    1 

E 

Q.    NC)     THEN    DO 

CH    =    .TRUE. 

J    *    1 
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10/02/30       12.2^.^2 
FILE:     SLED2  FuRTRAN       Tl 


STANDARD    LINE    GO  I  TOR 


NAVAL    POSTGRADUATE     ^CHOOl 
•FORTRAN     I  "1PLF  MENT  ATI   N 


SLED    VERSION    FORTl.l    NPS    MONTGDEY    900^01 
PROGPA-MEO     }Y:        C.    F.    TAYLOR,     JR.,     COOT     557A 

FOR    FURTHFR     INFORMATION    SEE    NPS    TECHNICAL    kEPORT 
NPS    52-30-001    BY    L.     A.    C3X ,    JR. 

MAIN    PROGRAM: 

READS     IN    COMMANDS    ANC    CALLS    THF    APPROPRIATE     $LM,\uUTlNE 
IMPLEMENTS     THE     " t 0  I  T "    MODE 

COMMON    /BLKl/INtOUT    /BLK5/ MFLAG,ERRCT,CURL IN 

INTEGER*  2    C  1  ,C2  ,  A,C  ,  0,L  »M.O»Q,  Rt  S,  T  t  Vt  I  NLINE  ,  3LNK 

INTEGER     IN,OUT,ERRCT  , CUR  LI N , NC 

DIMENSION     INI.  INC  (  30) 

LOGICAL     FLAG,OPENFL, MFLAG 

DA  TA    A/ »  A «  /  tC  /*  C  •  / 1  D/»  D»  / 1  !>/•  L « /  ,  M/  •  PM  /  ,  0/  •  0  •  /  ,y  /  •  0  •  /  ♦  */  »  3  «  /  » 
••/iT/'I'/.V/'V'/ ,8LNK/«     •/ 
200  0     FORMAT     ( '     E >' ) 

2010  FORMAT  (•  -INVALID  COMMAND-   *  ,2A1> 
2020    FORMAT  ('  -NO  TEXT  FILE  OPEN-') 

20*0  FORMAT  (•  -ONLY  ONE  FILE  CAN  BE  3PENED  PER  SESSION  IN  THIS  •  , 
♦SIGN  OF  SLb J-» ) 

tO  IT  MODE  —  WRITE  PROMPT 

WRITE  (OUT, 2 000) 

CALL  GETLINI INLINE, NC) 

CI  =  INLINE! I) 

C2  =  INLINE (2) 

FLAG  GOES  FALSE  AFTER  'QUIT' 

FLAG  =  .TRUE, 

GPENFL  GOES  TRUE  AFTER  FILE  IS  OPENED 

CPENFL  -  .FALSE. 

MAIN    EDIT    LOOP 
9000     IF     (.NOT.     (FLAG)      )    GO    TO    9001 

IF     (  .NOT. ( .NOT.tOPENFL     .OR.     (Cl.EQ.O)     .OR. 
*Q.V) ) )     )     GO     TO    9002 


S/ 


VFR 


C  FILE    NOT    OPEN    AND    THIS     IS   NOT     AN    'OPEN' 

C  OR    A    'MENU1    OR    'VERSION*     REQUEST 

wRITE     (OUT, 202  0) 

GO  TQ  9003 
900  2     CCNTINUF 
C  EMULATE  CASE  (SWITCH)  STATEMENT  TO  PROCESS 

IF  (CL  .Eg.  3LNK)  G3  TO  200 

IF  (Cl.NE.L)  GO  TO  10 

CALL  L I ST< INLINE) 

GO  TO  200 
10        CONTINUE 

IF  (CL.NE. S)  GO  TO  20 

CALL  SCREEN( INLINE) 

GU  TO  2  00 
2  0        CONTINUE 

IF  (  (Cl.NE.R)  .0R.(C2.NE. S)  )   }0  TO  30 


(Cl.FQ.M)  .OR.  {C.l.f 

COMMAND 


jmmano: 
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FILE:     SLED2 


Fortran     r  i 


*!AVAi_     POSTGRADUATE     SCHPHl 


c 

c 


30 

4  0 
50 

60 

7  0 
80 

90 

9004 

9005 
100 

UO 

20  0 


900b 
9003 


CA 
GO 
CO 
IF 
CA 
iO 
CO 
IF 
CA 
00 
uC 
IF 
C  A 
GO 
CO 
IF 
CA 
FL 
GO 

cc 

IF 
CA 
GO 
CO 
IF 
CA 
GO 
CC 
IF 
IF 


CO 


CO 
GO 

ca 

IF 
CA 

GO 
CO 


GO  T3  60 


LL  R 3 (INLINE) 

TO  200 
NT  I  NUE 

( (Cl.NE .«  ).0R. (C2.NE. L)  )  GO  Tl  40 
LL  RL I  INLINE) 

ro  zoo 

NTINUE 

(  (Cl.NE . A) ,0R.(C2.NE.L) )  GO  TO. 50 
LL  AL<  INLINE  ) 

TO  2  00 
NT  I  NO E 

( I  CL.NE .0) .0R.(C2.NE. S) ) 
LL  0S(  INLINE  ) 

TO  200 
NflNOE 

(Cl.NE.Q)  GO  TO  70 
LL  QUIT 
AG  =  .FALSC. 

TO  200 
NTINUE 

(Cl.NE. 
LL  VERS 

TO  200 
NTINUE 

(Cl.NE. 
LL  MENU 

TO  200 
NTINUE 

(Cl.NE 


V)  GO  TO  80 


M)  GO  TO  PO 


C)  GO  TQ 


LOO 

GO 


TO  9004 


(  .NOT.(OPENFL)  ) 

WRITE  (OUT, 2030) 

GU  TO  9005 
NTINUE 

CALL  OPEN 

(JPENFL  =  .TRUE. 
NTINUE 

TO  200 
NTINUE 

t (Cl.NE. C)  .OR. (C2.NE.T) )    GO    TO     110 
LL    CT(  INLINE  ) 

TO    200 
NTINUE 


IF    PROGRAM 

WRITE     (OUT 

ERRCT    =    ERRCT    ♦    I 

END    CASE 

CONTINUE 

IF     (  .NOT. (ERRCT. GE 

CALL    MENU 

ERRCT    =    0 
CONTINUE 
CONT INUE 

IF     ( ,NOT.( FLAG)     )     GO 
GET     >iEaT    LINE 


GETS    HERE,     COMMAND     IS    INVALID 
,2010)    C1,C2 


2)     )     GO    TO    900  6 


TO    900  3 
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F  OR  J"R  A' 


F  L 


"J  AVAL     "OSTjRAOUATE    SCH'im 


C2     = 
9008  CCNTINUE 

GO    TO     400.) 
9001    CONTIMJE 
STOP 
END 


IF     (.NOT.MFLAG)     /.RITE     (HUT, 2000) 
GALL    GETL IN( INLINE.NC) 

[NL INE( L) 

INLINE (2 ) 


BLOCK    J  AT A 

COMMON       /dLKl/     IN, JUT    /BLK3/     TFILE    /BLK4/     TCHAR     /BLK'3/    Mh  I.  AG ,  t"  RR  CT 

*,cimt  in 

[NTECFR*2     TCHAR 

IN  TE  it  <     IN,   JJT.TFILt  fEP.RCT  tCUPLIN 
LOGICAL    MFLAG 

DATA     I  4/ 5/, JUT/6/ , T CHAR/ ' S •/, E RFC T / 0 / ,  1FLA^/ .F AL jE  .  /  ,C  JPL T N/ 1 /  ,     TT 
♦ILF/2/ 
END 


SUBROUTINE    LlSHCLINE) 
DISPLAYS    TTXf    TU     THE     TERMINAL 


2100 
21L0 
2120 


COMMON 
*CURL  IN 
INTEGER 
INTEGER 
LOGICAL 
01  MENS  I 
OATA    BL 
FORMAT 
FORMAT 
FORMAT 


/BLK1/     IN, OUT    /8LK2/    LPTR  ,  MAXL  IN,  EOF     /-iL.<5/    MFLAG,F.RFCT 

*2    dLNK,LPTR,COMMA,OUTLIN,CLINE 

IN  , JUT, I  , J,N1,N2 .MAXL I N,EOF , ERRCT,CJRL IN, FETCH 

MF LAG rE FLAG 
ON    CLINE( 80) ,OUTLIN (80) ,LPTR<4000 ) 
NK/'     • /, COMMA/' ,'/,  FETCH/0/ 
(•    -INVALID    COMMAND-1) 
i  ■     MS  iX,30Al  ) 
(  •    -EOF-'  ) 

PRINT    CORLIN    AND     EX  IT 


9010 


9012 


IF    COL    2     IS     BLANK, 

IF  { ,NOT.(CLINfc< 2)  .  EQ.  BLNK)  )  GO  TO  90  10 
CALL  MEMORY  { FETCH, OUTL  IN , L PTR( CURL  I N )  ) 
WRITE     (OUT ,2110)     CURLIN,     OUTLIN 

go   ro  4oii 

CCNT  IN  it 

NOW    CHECK    FOR     LINE    NUMBERS     IN    COMMAND 
lALL    v-JML  IN(  2,CLINE,N1,  N2,EFLAG) 
(  N 1     .  L E .    0 )     Ml    a     I 
(  Nl    .GF.    N2  >     fcFLAG    =     .TRUE. 
(Nl    -GE.     ELF)     EFLAG    =    .TRUE. 
(  .NOT. (EFLAG)      )    GO    TO    90  12 
=    FRKCT     >     I 
(OUT, 2100) 
>0l  3 


IF 
I  F 


If 


ERR  C  T 
WRIT  l 
GO  TO 
CUNT INUF 
ERRC1 


=    0 
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FILE:     SLE02  FORTRAN       Tl  NA</AL    PO  ST  JR  AOUA  TE    SCHOOL 

[  »N1 

9014  IF  (.NUT.   (  i  I  .LE.N2)  .ANU.(  l.LT  .EOF)  )  )  if)  TO  901^ 

CALL  MEMORY  (FETCH,  OU  TL  I  N  ♦  LPT  ?  (  I  i  ) 
«kITF.     (0UT,2llU)  I,  UUTLIN 

CUM  LIN  =  I 
1  =  1*1 

go  rn  ioi<+ 

9015  CCNTINUE 
IF  (l.GE.EOF)  WRITE  (OUT, 2120) 

90L3     CONTINUE 
lOil  CONTINUE 

RE  TURN 

ENU 

SUBROUTINE     SC RE  EN ( CL I NE ) 
C 

C  DISPLAYS    ZO    LINES    BEGINNING    WITH    CURLIN    OP    OTHER    SPECIFIED    LlNf 

C 

COMMON  /3LK1/     IN, OUT    /3LK2/     LPTR , MAX L I N , E JF     /BL<5/    MFL AG, ER PCT 

*CUHL  IN 
INTEGER     IN,OUT,MAXLIN,EOF,ERRCT,CJPL  I  N,  I  ,N  I , N2  ,  L I M  I  T ,     FETCH  ,N 
IN  TE^ER*2    CLINE  ,  LPTR,UUTLI  N,BLNK 
LOGICAL    MFLAG,EFLAG 

DIMENSION    CLINE ( dO) , OUTLIN(SO) ,LPTR ( 4000 ) 
DATA    BLNK/*     '/, FETCH/0/ 
2100    FORMAT     (•    -INVALID    COMMAND-') 
2110    FORMAT     ('     ■  ,14, IX,B0A1 ) 
2  L2  0    FORMAT     (  •     -EOF-*  ) 


C 


EFLAG  =  .FALSE. 

FINO  OUT  WHETHER  USER  SPECIFIED  A  LINE 

IF  (  .NjT.(CLlNE( 2  ).Ne.RLN< )  )  GOrTO  901S 

CALL    C0MLIN(2  , CLINE, Nl , N2 , EFLAG) 

IF     (Nl     .LE.     0)     Nl     =     1 

IF    (Nl    .GE.    EOF)     EFLAG    =    .TRUE. 

IF  (.NOT.  EFLAG)  CURLIN  =  Nl 
9016  CONTINUE 

IF  (  .NOT. (EFLAG)  )  GO  TO  9018 

ERRCT  -    ERRCT  ♦  I 

WRITE  (OUT, 2100) 

GO  TO  <->01^> 

9018  CONTINUE 

ERRCT  =  0 

LIMIT  =  MI  NO ( CUR L I N* 19, EOF- 1) 
00  10  I  =  CURLIN, LIMIT 
CALL  MEMORY (FETCH, OUT  LIN, LP TR( I  )  ) 
WRITE  (OUT, 2110)  I,OUTLIN 
10     CCNTINUE 

CURLIN  =  LIMIT 

IF  (LIMIT  .EQ.  EOF-1)  WRITE  (OUT, 2120) 

9019  CONTINUE 
RE  TURN 
END 
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rllE:     SLfc)2 


FORTRAN       TL 


"A7AI      POSTER  AOU'WF     SCH'TU 


SUBROUTINE    RL(CLINF) 


RE 
AH 

CG 

*cu 

IN 

IN 

LU 

01 

OA 

2  100     FO 


PLACES    CURRENT     LINE    OK    THE    SPECIF  I  FO    LFNF    OR    LI  NFS    WITH 

Y    NUMI3ER    OF     LINES 


/3LK1/     IN, OUT    /3LK2/    LPTR , MAXL IN , E OF     /ILK  5/     1FL AG , FR PC T, 

T : 1  P  F 


MM  ON 

K  L  I  N 

TcGLR     IN,  OUT,  MA  XL  I  N  ,EOF  ,  ERPC  T  ,  CJR  L  I  N  ,  N  ,  N  L  ,  M2  ,  1  ,  J  ,LTU  T, 

TEGF«*2    CLINE, LPTRtBLNK 

OICAL    MFlAU,EFLAG 

MENS  ION    LLINEI BO)  , LPTR( *000 J 

TA    RLNK/'     ■ /tSTURE/l/ 

PMAT     (»     -I  OVAL  10    COMMAND-1) 


Nl 
N2 
OE 
IF 


9020    CO! 
IF 


-    CURL  IN 
=    NL 

TERM  IN 
(  .NOT 
CALL 
IF  (N 
IF  (N 
IF     {  . 

NTINOE 
{  .NOT 
6RRCT 
WRITE 
GO  TO 
9022  CONTINUE 
tRPCT 
IF  IN 
RE  MOV 
N  =  N 
00  20 
LIMIT 
CALL 
00  10 
LPTRI 
CCNTI 
EOF  = 
CUNT  I 
NOV,  I 
CALL 

NT  INOE 

TURN 

0 


E  WHICH  LINE(S)  TO  REPLACE 
.  (CLINEi  J) .NE.BLNK)  )  30  TO 
COM L I N I 3 , CL I NE , N I , N? , E  FL  AG ) 
1  .LE.  0)  EFLAG  =  .TRUE. 
L  .GE,  EOF)  EFLAG  =  .TRUE, 
NOT.  EFLAG)  CURL  IN  =  Nl 


902  0 


(EFLAG)   )  GO 
=  FPPCT  *  I 
(OUT ,2 100) 

90  2  5 


TH  9022 


10 
20 


9023  CO 

RE 
EN 


2  . 

E  D 

2  - 

I 

PUS 

J 
J) 

NOE 
Eu 
NUF 
NPJ 
INP 


0 

GE.  EOF)  N2  =  EOF  -  I 

ESIGNATEO  LINES 

Nl  ♦  1 
-  1  »N 
EOF  -  2 
HILPTRiNl  )  ) 
=  Nl, LIMIT 
=  LPTRU  +  L) 

F  -  I 

T    REPLACEMENT    LINES 
UT 


SUBROUTINE    AL(CLINE) 

INPUT     TEXT     AFTER     LINE    N 

COMMON  /3LKI/     IN, OUT    /QLK5/    MFL AG  ,ERRCT ,CJRL IN 
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FILE:     SLFD2  FORTRAN       Tl  NAVAL     PUSTGRAOUATF    SCHt.PL 

INTEGFR*2    BLNK.CHNE 

INTEGER     IN  ,  JUT,  i  ,  J,  N.NI.N2  ,ERRCT .CURL  IN 

LOGICAL    MFL AG, EFLAG 

Dl MENS  I ON    CLlNEi  80) 
CATA    RLNK/'      •/ 
2  100     FORMAT     ('     -INVALU    COMMAND-') 

C 

C  EXTRACT    L  I  i\l  t     NUMBER    FROM    COMMAND    LINE 

CALL    LOMLlM  < ,  CL  I  Nt , Nl , N2 , EFLAG) 

IF     (Nl     .LT.      ))     EFLAG    =    .TRUE. 

N    =    Nl 

IF     (  .NOT .(EFLAG)      )    GO    TO    ^024- 
ERPCT    =    ERRCT     *■     i 
WR  I  TE     (UJT,21uO) 
GO    TO    '->0  2  5 
9024    CON!  INIJE 

EPRCT    =     0 
CUPlIN    =    N    +     I 
CALL     INPUT 
902  5    CONTINUE 
RETURN 
END 

SUBROUTINE     OS(CLINE) 
C 

C  PART     OF     SLLJ    PACKAGE 

C  01  SPLAYS    ALL    LINES    CONTAINING    THE    DESIGNATED    STRING.     P0SSI3LY 

C  LIMITED     TO    LINES    N    THROUGH    M. 

C 

COMMON    /BLKl/     IN, OUT    /3LK2/    LP  TR  ,  M  A  XL  IN  ,  EOF     /BLK5/     MFUG,  E  R»  CT  ,  Cl| 
♦LIN 
INTEGER     IN ,00 T , M AXL I N , EOF , EP RC T , CUR L IN.NI .N2 ,NC. FE TCH, MC 1 
INTEGER* 2    CLINE,L°TR  ,BLNK, STRI NG.LINF 
LOoICAL    MFLAG, EFLAG, MATCH, FOUND 

01  MENS  ION    CLINEI HO)  ,LINE( 50) ,LPTR(  +0  00  )  .STRING!*)) 
DATA    8LNK/'     ' /.FETCH /O/ 
2100    FORMAT     (•     -INVALIO    COMMAND-') 
2110     FORMAT     (•     •  ,  I  4, 1 X . 50 A  1 > 
2220    FORMAT     («    OLD    STRING?>») 
2250    FORMAT     ('     -NO    STRING    FOUND-') 


C 


DEFAULT    VALUES 

FOUND  =  .FALSE. 

EFLAG  =  .FALSE. 

Nl  =  I 

N2  =  EOF  -  I 

DETERMINE  wnETHER  N1.N2  WERE  SPECIFIED  BY  J3CR 

IF  <  .NUT.ULINECJ)  .NE.  BLNK)  )  GO  TO  °026 

CALL  COMLlNIi , CL I NE ,N L , N2 , E FL AG ) 

IF  (Ni  .GE.  EOF)  EFLAG  =  .TRUE. 

IF  (N2  .GE.  EUF)  N2  =  EOF  -  1 

IF  (Nl  .LE.  0)  Nl  =  1 
9  02  6  CONTINUE 

IF  (  .NOT. (EFLAG)   )  GO  TO  9025 
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FILE:     SLED2 


FORTRAN        Tl 


NAVAL     PUSTJR AJUATE     SCM'1')! 


ERRCT 
WRITE 

gu   ru 

9028    CONTINUE 

ERRCT 

FETCH 

IF     {  . 

CALL 

IF     (  . 

ER 

WR 

GO 

9030  CONTI 

00 

CA 

CA 

IF 


=     ERRCT     +     I 

<rjT ,2100) 

VU29 


903 
2 

903 
902 


CC 
CU 
IF 

CCNTI 
ITINUE 
'URN 


NO 

GE 
NO 
RU 
I  T 

r 

NO 

2 

LI. 

LL 
( 

F 
A 

c 

NT 

NT 

( 

NU 


0 
1  Rl 

T. 

TLI 
T.< 

T     = 
C     ( 


NG;      ISSUE     PROMPT     IF    NECESSARY 

^FLAG)     WRITE     (OUT, 2220) 

N     (STRING, NO 

NC     .LE.     0)     )     GO    TO    90  3  0 

ERRCT     «-    1 
GUT  ,2100) 
031 


I    =    N1,N2 

Y (FETCH, L INE,LPTR(  I  J  ) 
H(LlNEtSTRlNGtNCf  1ATCH°,MCi  ) 
MATCH)     )     GO     TJ    9032 

.TRUE. 
i;UT,2L10)  I»  LINE 
=  I 


4EMUR 

ScARC 
.NOT. ( 
OUND  = 
RI  It  ( 
URL  IN 
INUE 
INUE 

.NUT.  FOUND)  WRITE  (GUT, 2250) 
E 


CON' 

R£T( 

END 

SUBROUTINE     RS(CLINE) 


P*RT  OF  SLED 
REPLACES  THE 
CURRENT     LINE 


PACKAGE 

FIRST    OCCURRENCE    OF^STRINGl    WITH    STRING2 

Oft    WITHIN    THE    SPECIFIED    RANGE    OF    LINES 


ON     Trtt 


2  1.) 

211 
223 
11'* 
115 


COM 
*LIN 
INT 
*NC2 
INT 
.11  M 
OAT 
LOG 
FOR 
FUR 

rou 

FOR 

FUR 


MON    /BLKI/     IN, OUT    /BLK2/    LP TR , M A  XL  I M  ,  EOF    /SLK5/     MFL AG ,ERR CT  ,CUR 


FGER     IN 
.FETCH, 
EGER*2 
ENSIGN 
A    OLN</ 


,OUT,MAXLIN,EOF,ERRCT,CJRL IN, Nl,N2, 1 ,J ,K,L,M,     N  ,  MC  1 1  NC  1 
STORE 


ICAL 
MAT     ( 
MAT 
'4  AT 
•4  AT 
MAT 


MF 


C  L I NE  , 
LPTR(4 
'  '/,F 
LAG,FO 
-INVAL 
• ,I4,i 
GL"  ST 
NEW  ST 
-NU  ST 


LPTR.BLNK, STR1,STR2,LINF 

000)  ,CLINE(80)  ,STRI(  80)  ,  STR2C30)  ,LINc<30) 

ETCH/0/, STORE/ 1/ 

UNO  ,  MATCH, EFLAG 

It)    COMMANO-'  ) 

X  ,  3  0  A  I  ) 

RING7V ) 

R  ING?>»  ) 

RING    FOUNO-1  ) 


OE  FAULT     COiNOITIONS 

NI     =    CURLIN 

N2    =    Nl 

(FLAG    =     .FALSE. 

INTERPRET    COMMAND    LINE 

IF  (  .NUT.(CLINE{  .1)  .NE.8LNK 
CALL  CUMLlN<3,CLINEfNl  , 
IF     (Nl     .Ll.     0)     EFLAG    = 


) 

N2 


)     GO    TO 
,EFLAG  ) 


003<* 


TRUE 
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FILE:  SLE02 


FORTRAN   Tl 


NAVAL  POSTGRADUATE  SCHOOL 


IF  (NL  . 

IF  ( N 2  . 
9034  CONT INUE 

IF  (  .NUT.  (E 
ERRCT  = 
WRITE  (0 
GO  TJ  90 
9036  CONTINUE 

ERRCT  - 

C         REAL)  IN 

IF  (  .NOT 

CALL  GET 

IF  (NCI 

IF  (  ..MOT 

CALL  GET 

IF  (  .NOT 

ERRCT 

WRITF 

RETUR 

903  8     CONTINUE 

C  NOW  FIND 

FCUNO  = 

DO  50  K 

CALL  MEM 

CALL  SEA 

IF  { .NOT 

C  NOW  M 

J  =  M 

FOUNO 

C  OELET 

00  20 

0  0  10 

L  I  NE  ( 

10        CCNTI 

20        CONTI 

C  NOW  M 

IF  (  . 

00 

M 

DO 
LI 
CO 
CO 
NO 
00 
LI 
CU 
CONTI 
C  STORE 

CALL 
C  OISPL 

C  WRITE 

C  RE MOV 

C  OlSPL 

C  REPLA 


GE 
GF 


30 

40 


45 
9042 


FLAG) 
EkRCT 
JT,21 
11 

0 

TWO  S 
.  MFL 
L  I  N I  S 
.LE. 
.  MFL 
L  I  N  (  S 
.  (EFL 
=  ER 
(OOT 
N 

STRI 
.FALS 
=  Ni. 
ORYIF 
RCH(L 
.  (MAT 
AKE  S 
CI 

=  .T 
E  STR 

I  = 

M  = 
M>  = 
NOE 
NUE 
AKE  R 
NOT.  ( 

40  L 
=  91 

30  I 
NH(32 
NTINU 
NTINU 
W  INS 

45  I 
NEC  J* 
NT  INU 
NOE 

RE  VI 
MEMUR 
AY  RE 

(OUT 
E  "C" 
AY  OF 
CEO 


OF)  EFLAG  =  .TRUE. 
LFI  N2  =  EOF  -  1 

)  GO  TO  903  6 
*  1 
00) 


TRINGS;  PROMPT  IF  NECESSARY 

AG)  WRITE  (OUT,  2230) 

TRl,NCt) 

0)  EFLAG  =  . TRUE. 

AG)  WRITE  (OUT, 22^0) 

TR2,NC2) 

AG)   )  GO  TO  90  38 

RCT  ♦  1 

,2100) 


NG1 

E. 

N2 

ETCH 

INE, 

CH) 

03ST 

ROE. 
INGi 
ltNC 
J, 79 
LINE 


,LINE,LPTR (K) ) 
STRI  ,NC1, MATCH, MCI) 
)    GO    TO    90  40 
ITUTION 


1 
<M*1) 


OOM 
NC2 

=  1 
-    J 

=    2 
-II 
E 
E 
LRT 

*  1 
I-i  ) 
E 

SEO 
Y(ST 

VISE 

,211 

IN 

EAC 


FOR    STRING2 

.GT.    D)     )     GO    TO    9042 

,NC2 

tM 

=    LINE  (8  1- I) 


NEW    STRING 
,NC2 
=    STR21 I ) 


LINE 

ORE,  LINE,  LPT^m  ) 

0    LINE 

0)     K,LINE 

CC     1    OF    ABOVE    LINE    TO    ENVTLE 

H    LINE     IN    WHICH     A    STRING    HAS     BEEN 
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FILE:     SLEU2 


FORTRAN        Tl 


NAVAL     "HST'jR  Ai)UAfc     SCHMfU 


904  0 
50 

9037 


2i00 

2  200 


9044 


9046 
9047 


CURL  I N 
CCN riNUE 
Cf>r  INUE 
IF     ( .NOT. 

CO.NT  INUE 
RETURN 
END 
SUBRCUFINE 


=  K 


FOUND)  WRITE  (GUT,22  50) 


CT 


PART  OF  SLED  PACKAGE 

CHANGES  THE  MESSAGE  TERMINATOR  TO 

COMMON  /8LKI/  INT, GUT  /8L<4/  TCHAR 
INTEGER  IN, OUT , ERRCT , CUR LI N , NC 
INTEGER*2  TCHAR  ,  INLI  NtBLNK 
LOGICAL  MFLAG 
DIMENSION  INLIN( 60) 
CATA  8LNK/'  » / 

FORMAT  <'  -INVALIO  COMMAND-') 
FORMAT  ('  TERMINATQR?>'I 


ANY  VALIU  CHARACTER 
/3LK  5/  MFLAG  fERRC T,CURL  I N 


IF 


I .NOT. 
PROMPT 
(OUT, 2200) 


MFLAG)  )  GO  TO  9044 


(  .NOT 
ISSUE 
WRITE 
CONTINUE 
CALL  GETLINI INLIN,NC> 
IF  {  .NOT.!  ( NC.EO.O)  .CR.I  INLINI  I) 
=  ERRCT  ♦  1 
(0JT,2100) 
904  7 


ERPCT 
WRITE 
GO  TO 

CONT INUE 
TCHAR 

CONTINUE 

RETURN 

ENO 

SUBROUTINE 


EQ.3LNK  )  )  )  GO  TO  9046 


=  INLINU) 


MENU 


PART  OF  SLEO  PACKAv. 
PROVIDES  USER  WITH 
AND  THEIR  FORMATS. 


SUMMARY  OF  AVAILABLE  COMMANDS 


COMMON  / 
INTEGER 
200    FORMAT  i 

*  REPLACE 
*»,T48. *< 
*' ,T40,»R 
*RU  M'  ,! 4 
*T38, »STR 
*$' »T48, 
♦TRING  »'P 

*  SHOW  AN 
20  1  FORMAT  < 

♦INING  "P 
♦CMMANOS' 


8LK 
IN, 
'  S 
MEN 
R>t 
SNt 
0,' 
I  No 
•<D 
»i' 
Y  L 
3X, 
.ii/ 

/    3 


1/     IN 
OUT 
LED    C 
T»  /3X 

PLACE 
PiQ*» 
RoN,  i 
SEAR 
>ISPL 
/  i  X  ,  ' 
INES' 

•s( ,  r 
3X,  «s 
X  ,  •  M  * 


,out 

OMMA 

,'AL 

<S> 

,T50 
$P*Q 
CH*  / 
AY  L 
LN,M 
) 

LOt* 
N'  ,  T 

,  Tin 


NO 
N' 


0    SUMMARY:'// 

•  ,T1D  ,  •  INSERT 

RING'  ,/3X  ,'RL 

•"P"    WITH    "Q" 

i*  ,T52  ,     •  INDIC 

3  X  ,  *  L  •  ,  T  1  0 , '  3 

INES     '/3X,'LN' 

'  ,  T I  0 ,  •  L  I  N  E  S    N 


•     LINE /TEXT     INSERT* , T 3 « 


<A>rTER     <L>INE     N 


0 


N'  ,T10  ,     '  <  OEPl  ACE    <L>I 

IN'/      3X,  »RIN,M»  ,  T15,'L 

•INDICATED    LINES.1/'     OUTPUT    C 

I  SPLAY    CUKRFNT    <L>INE', 

, TIO,  'OR    LINE    N.  •  tTbO, 

THR J     M« fT43 ,     >USNtMiPt 


,  'STPINO 
,  •  R  S  t  P  %  U  S 
iE  N  .OR. 
NFS  N  T'« 
)MMANDS'  , 


T40  ,  ■  i 

•  W  I  1  H 

•  ,  T  '♦  8 


?S  V- 


<S>HOW  A  ',  '"SCREEN"  UF  L  INF  SNT  50 
LO,  'SHOW  A  SCREEN  FROM  LINE  N»,T3* 
,'SHOW    COMMAND     <M>FNU     ( T U  I  S )  '  , T  tO , • 


•  N-M    f.ONTA 

•  CUNT  »  PL    C 
•,T4R,     »<D 
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FILE:  SLED2 


FORTRAN   Tl 


'•I  AVAL  PNSlGkAOOATL  SCHOOL 


c 
c 

c 


*>PEN    A 
*TE    A    F 
*IT     THE 
WK  I  T  E 
aRITE 
RF  TUKN 
ENO 
SUBRCU 


F  ILL    OR  • /3X,«  V  ,T10 
ILE    FOR     EDITING»/T40 


•  SriOw    <V>C< 


EDIT     TYPE 
(OUT, 2001 
(  (JUT,  20  I) 


"J<RCT>H« 


r     CT 
,T40 


<:>HANG 
MESSAGE 


ION    I  -iHltr-iAT  ION'  ,    T 

E    THE    LOGICAL'/    5X, 

<T>F  <M  IN'  ,   'A  TOR'  ) 


52, 


<  o>| 


TINE  VERS 
PART  OF  SLED  PACKAGE 


C 
C 

c 
c 
c 


CO 

IN 

220    FO 

*r 
*  i 

*EY 
*<R 

*  F 

*  T 
22  1  FO 

*TI 
*YP 
*3) 
*IN 
*EV 

*  A 
*PA 
♦UN 

22  2    FO 
*•/ 

WR 
WR 
WR 
Kt 
EN 
SU 


MMUN  /6 
TEGER  I 
RMAT  ( * 
IS  C.  T 
S  <  >  ( 
IS  <i)> 
ETURN> 
ORTf<  AN 
HE  FOLL 
RMAT  ( 
ONS'  /• 
E>  "•/ 

MAXIM 
JICATE 
ENT  A  0 
S  A  LOG 
00 EO  WI 
CTICN  0 
RMAT  ( 


ITE  (0U 

ITc     (OU 

ITE  (OU 

TURN 

0 

BRUUTINE  OPEN 


LKL/  I 
N,OUT 
SLED 
AY  LOR 
ASCII! 
'//  ' 

>ND 
CHAKAC 
OW  I.MG 
•  (1) 


OM  F  IL 
WHET  HE 
tSK  RE 
ICAL  M 
TH  OLA 
NLY. • J 
'      (6) 

I  S  RE 
Tf220) 
T,221) 
T,222) 


N,OUT 

VERSI 
403-6 

OR    < 

EOITO 

( 

TER.  • 

DEVI  A 

THE 
FOR    A 
(2) 
ESIZE 
R    HE 
AO    ER 
ESSAG 
NKS    0 


ON  FOR 
-♦6-269 
CENT  S 
R  LOGI 
2)  <h> 
/  '  AL 
TIONS 
UNI VER 

NON-S 
ONLY  0 

IS  40 
IS  EDI 
ROR  IN 
E  •/  • 
N«  / 


Tl  .1 
I  08 
IGN> 
CAL 
'// 
L  IN 
FROM 
SAL 
TANO 
NE  F 
00  L 
TING 
FOR 


NPS 
00-1 

•f 

MESS 
•  AN 
°IJT 

SLE 
ENTR 
ARD 
ILE 
I  NFS 

A     • 
TRA 
TE 
T 


MONTE 

7  00    MS 
ME-iC 

AGE    TE 
D    CAN 
IS     TRA 
0     STAN 
Y     COMM 
ENTRY: 
PER    SE 
.*/    ' 
/     • 
S.  •/• 
R  Mil NAT 
ME    RIG 


key   -n 

T/PJT* 
DIG)  '  / 
RMINAT 
RF  CiM 
NSLATc 
DARO  n 
AND  "3 
"SLL 
SS  ION 

(4)  T 
NEW 

(5)  ri 
OR,  TH 
HT  .        T 


O'+Ol 
//     ' 

•  CM 
OR  S 
NGcD 
0     TO 
ERE 
LEO" 
0  1  < 
CAN 
HE  U 
FIL 
HEN 
E  LI 
HIS 


•/  •  lo: 

LINE  OF 

A  R  A  C  T  F  R 

A  R  F  :  »  /  • 

TO  ANY 

UPPER  C 

REQUIRED 

INVOKES 
F I  LENA  IE 
BE  OPFNE 
SER  IS  A 
E  I.N  ORD 
<RETORN> 
NE  OR  ST 
AFFECTS 


U  E 
LCTE 
DELE 

S  T  AN 
ASE. 
:  '  ) 

INS 
>  <F 
}.•/ 
S  K  ED 
FP  T 

I  I 
R  ING 
THE 


XPTR 

KEY 
TF  K 
(  I  ) 

OATf 
•/ 

T  R  0 1 
I  LET 

•  ( 
Tl 
(   PR 
US  Ft) 

IS 
P.S  F 


ONLY  THE  F 
PLACED  TO  P 


IRST  OCCJRRENCE  OF  A  STRING 
ERMIT  FREE  SUBSTITUTIONS  OF 


IN  EACH  LINE 
BLANKS' ) 


OPENS  TEXT  FILE  AND  WORKSPACE  FILE 
READS  TEXT  FILE  INTO  WORKSPACE  IF  IT 
INITIALIZES  POINTERS  ETC. 


ALREADY  EXISTS 


00  0 
040 
050 
40  0 
410 


COM 
♦LAG 
INT 
*NC 
INT 
LOG 
DIM 
DAT 
FOR 
FOR 
FOR 
FOR 
FOR 


MON    /3LKI/     IN, OUT    /BLK2/    LP TR , M A  X L I N , EOF     /8LK3/     TPILE     / 

,CRRCT,CUKL IN     /3LK6/     STACK, ST<PTR 

EGER     IN,  JUT, TF ILE, LINE, ERRCT, CURL  I N, STORE , M AXL IN, EOF,     S 


BLK5/    MF 
TKPTR,  I, 


EGER* 2    LPTR, STACK  ,FNAME, INL IN,YES ,N0, REPLY, BLlNE 

ICAL    MFLAG 

ENS  I  ON    LPTR (4  000)  , BLINE (30)  , STACK (400  0)  ,FNAME( 90 )  ,  INLIN(BO) 

\    YES/'Y'/,BLlNE/80*»     • / , NO /• N« / , STO RE/ 1 / 

MAT     (30A1) 


MAT  (  •    -•  ,14,  •    LINES     IN    FILE: 

MAT  (•    -CREATING    FILE:       ' ,80All 

MAT  (•     F1LENAME?>M 

MAT  { »     IS     THIS    A    NEW    FILE?>* ) 


BOA  I  ) 
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SLED2 


FORTRAN        Tl 


MAVAl     r> 


GRADUATE     SCHOOt 


2420    FORMAT     (•    -MAX    CAPACITY    4000    LIMES    EXCEEDED-1) 


9048 


9050 


9051 
10 


9052 

9049 
20 


INITIAL  I 

MA  XL  IN    = 

CUP  LIN    = 

READ     IN 

IF     { .NOT 

CALL    GET 

ASK    WHET 

WRITE     (0 

READ     (IN 

REPLY    = 

IF     ((PcP 

IF     (  .NUT 

WRI  TE 

EOF    = 

STKPT 

ACTI  7 

LPTR( 

CALL 

GO    TO 

CONTINUE 

NOW    R 

LINE 

IF    (  . 

RE 

LP 

CA 

LI 

GO 

ccNn 

CONTI 
IF    {  . 
WR 
ST 
CONTI 
STKPT 
EOF    = 
TELL 
WRITE 
CONTINUE 
DO    20     I 
STACK! I ) 
CONTINUE 
RETURN 
END 
SU3R0UTI 


ZE 

4000 

1 
FILENAME  (COSMETIC) 
.  KFLAG)  WHITE  (GUT, 2400 J 
LIN  (I- NAME,  NO 

bf<     IT  IS  A  NEW  FILE  (TO  PREVENT  FORTRAN  READ  ERROR) 
UT, 2410) 
,1000)  INLIN 
INLINU  ) 

LY.NE.YES) .AND. (REPLY. NE. NO) )  GO  TO  5 
. (REPLY. EQ. YES)  )  GO  TO  9048 

(GUT, 2030)  FNAMt 

I 
R  =  1 

ATE  FILE  WITH  AN  ACCESS 
i)  =  L 
MEMORY < STORE, BLINE ,LPTR( 1) ) 

9049 

EAU  IN  TEXT  FILE 

=  0 

NOT.  (.TRUE.)  )  GO  TO  9051 

AO  <TFILE,1000,ENO=iO)  INLIN 

M(LINE+1)  =  LINE  >  L 

LL  MEMOR Y( STORE, INLIN, LPTRILINE+ I) ) 

NE  =  LIME  ♦  1 

TO  3050 
NUE 
MUE 

NOT. (LINE. GE. MAXLIN)  )  GO  TO  9052 
ITE  (OUT, 2420) 
OP 
NUE 
R  =  LINE  >  I 

STK.PTR 
USER  FILE  OPEN 

(OUT, 2040)     LINE,FNAME 

=     1,MAXL(N 
=     I 


NE    guiT 


PART  OF  THE  SLEO  PACKAGE 
CLOSES  OUT  THE  WORK.  FILE 
TEXT    FILE 


AND     WRITES     THE     MEW    OR     UNDATED 


COMMON    /8LK2/    L 
INTEGER    MAXLIN, .    ■. 
INTEGLR*2    LINE,LPTR 


LPTR, MAXLIN, EOF  /O 
, I N,OUT,EOF,TFILE, 
,LPTR 


/QL<3/    TFILE     /rJLKl/     I  N  ,  O'J  T 
L  ,  L  I  M I  T 
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FILE:     SLED2  FiiRTRAN       Tl  NAVAL    PUiTGR AOUATF    SCHUfR 

01  MENS  I GN    L PTR< 40  JO) , LINE! BO) 
2000     FORMAT     (30AI) 

2450    FORMAT     (•     - • , I  4 , •    LINES    WRITTEN-1 ) 
C 

RE W I  NO  TFILE 

limit  =  tnr-   -  I 

00  90  L  =  1  ,LtMl  I 

CALL  MEMORY (FETCH, LINE, LPTR(L) ) 

WRITE  ( TFILE,20Q0)  LINE 
90  CONTINUE 

WRITE  (OUT, 2450)  LIMIT 

RE  TURN 

END 

SUBROUT INE    MEMORY (ACTION tL INE, PTR2) 
C 

C  PART    OF     SLEO    PACKAGE 

C  HANDLES    ALL    MEMORY    REFERENCES    USING    DIRECT-ACCESS    DISK    FILF 

C  CURRENT    CAPACITY     IS    4000    LINES 

C  REQUIRES    AT    LEAST    3    DEDICATED    CYLINDERS    OF    DISK    SPACE    FOR 

C  WORK    FILE    UNDER    CP/CMS    ON     AN     MM    3o0/67 

C 

COMMON    /BLK3/    TFILE 

INTEGER     WFILE,TFILE, ACT  I  ON , S TORE , PT R , AVAR, ERRS 

INTEGER*2    LINE,PTR2 

DIMENSION    LINE(80) 

DATA  STORF/L/ 
100  0  FORMAT  I 3UA I ) 
C 
C      OEFINE  WORK  FILE 

WFILE  =  13 

DEFINE    FILE     I 3( 4000 , 80, E , A VAR ) 
C  CONVERT    PTR2    FROM     INTEGER*2    TO    INTEGER 

PTR=PTR2 
C  INITIALIZE    READ     ERROR    COUNTER     AND    BEGIN 

ERRS    =    0 

IF  {  .NUT. (ACTION  .EQ.  STORE)  )  GO  TO  9054 
WRITE  (WFILE' PTR,  1000)  LINE 
GO  TO  9055 

9054  CONTINUE 
C  FETCH 

5     READ  (WFILE1 PTR, 1000, ERR=99)  LINE 

9055  CONTINUE 
RETURN 

99    ERRS    -    ERRS    *     1 

IF     (ERRS    .LT.     10)    GO    TO    5 

STOP 

END 

SUBROUTINE     INPUT 
C 

C  IMPLEMENTS     THE     INPUT    MODE 

C 

COMMON    /»1LKI/     IN, OUT    /BLK2/    LP  TR  ,  MA  X  L  IN  ,  EOF     /BLK5/     MFL  AG,  r  <  Rf  T  ,ClJ 
♦LIN 

INTEGFR*2    PD, LPTR  ,BLNK, OUT L I N 

INTEGFR     MAXLIN,EOF,ERRCT,CURLI N, STORE, I , J, IN,OUT,NC 
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I LF  :     SLED2  FORTRAN       Tl  NAVAL     t>  '1ST  ,R  AOUAT  E    SCH'OL 

LOGICAL     MFLAG 

DIMENSION    LPTR<4000)  ,UUTL I M( SO ) 
OATA    PO/« .' /»SrQPE/l/i8LNK/«     •/ 
2110    FORMAT     ( •     !>• ) 

;  IF    NU     INPUT     IN    QUEUE  ,     PROMPT    U5EP 

IF     (.NUT. MFLAG)     *RITE     (OUT,2L10) 
CALL    GbTLINCUUTL IN, NO 

9056  IF     {.NOT.     I  .NOT  .  (  {  OU  TL  I  N<  I  )  .  EQ  .  P'3  )  .  A  NO  .  [  nijTL  I  N  ( I  )  .  E  Q  .  61NK)  )  )      )     GO 
♦TO    90^ 

IF     i.NGT.dNC     .GT.     0)     )     GO     TO    90  5  8 
UNLESS     IT     WAS     A    NULL     LINE 
;  MAKE     ROOM     FOR    NEW     INPUT 

IF     ( .NOT.CCURLIN.LT. EOF)     )     GO     TO    9060 
J    =    EOF    -    CURLIN 
00    10    I     =    1  ,J 

LPTRiEUF    f     1    -     I)     =    LPTRIEOF    -     I) 
10  CONTINUE 

GO     TO    9061 

9060  CONTINUE 

CURLIN     =    EOF 

KEE^S    INPUT    TEXT    CONTIGUOUS 

9061  CONTINUE 

EOF    =    EOF     *■    I 
;  GET    A    NUMBER    FOR    NEW     LINE    FR3M    STACK 

CALL    POPILP TR(CURLIN) ) 
;  NOW    STORE     THE    NEW    LINE 

CALL    MEMORY (STORE, OUTL IN, LPTR{ CURL  IN  J ) 
CURLIN    =    CURLIN    *    I 
9058  CONTINUE 

;  IF    NUTHING     IN     QUEUE,     PROMPT    USER 

IF     (.NOT. MFLAG)     WRITE    (OUT, 2110) 
CALL    GETLIN(GUTLIN,NC) 
GO    TO    9056 

9057  CONTINUE 
RETURN 
ENO 

SUBROUTINE    GETL I N (OUTL IN ,NC ) 

;  GETS    A    LINE    FROM     TERMINAL;     QUEUES    UP    MULTIPLE    LINFS 

COMMON  /8LK1/     IN, OUT    /8LK4/    TCHAR    /BLK5/     MFL  VG  ,  ER  9.QT  ,  CURL  I  N 

INTEGER*2     I NL IN, OUTL IN, QUEUE ,BLNK,TCHAR 

I N  TEGE  R     IN, OUT , £  RRC  T , CURL  I N , I , J , K, L I NEL  N ,80, EN OQ , NC , NCHAR S 

LOGICAL    MFLAG, NFL ^G 

DIMENSION    INLINI 80) ,OUTL IN( 80)  ,  QUEUE ( 80 , 10) , NCHAR S ( 10) 

DATA    BLNK/'     ' / , LI NEL N/30 / , 8Q/0 / , ENOQ/0/ 

FORMAT     (30A1) 

FORMAT     {•     -TRUNCATED;    ONLY     10     ITEMS     PE<<     LlNS-M 

FOKMAT     (•     -ILLEGAL    CHARACTER    OR    BLANK    COMMAND- » | 

MFLAG    GOES    TRUE     WHEN    MULTIPLE     INPUT     LINFS    ARE     STACKED 
IF     (  .NOT. (  .NOT.MFLAG)     )     GO     TO    9062 

READ     (  IN,  LOU  ,ERR=99,ENQ=98  )     INLlN 
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FILE:     SLED2  FORTRAN       Fl  NAVAL    PO  STGR  AUUATE     SCHQfll 

I    =     I 

9064  IF     {.NOT.     (  (  I  .  LE  .  L  I  NELN  )  .  AN  0.  {  I  NL  I  N  <  I  )  .  I  It .  T  CHAR  )  )      )     GC1     TO    Q06<} 

0UTLIN1 I )  =  I NLIN( I ) 
I  =  I  f  L 
GO  TO  9064 

9065  CCNTINUC 
NC    =     I    -     L 

IF     ( INLIN( I ) . EQ.TCHAR )     MFLAG    =     .TRUE, 
IF     ( .NOT. ( I.LE.LlNELN)      )     GO    TO    9066 
00    ZO    K    =     I, LI NELN 
OUTLINE)     =    JLNK 
20  CONTINUE 

9066  CONTINUE 

9068     IF  {.NOT.  ( INL IN { I ) .EQ.TCHAR )  )  GO  TO  9069 
IF  ( .NOT.t LNUQ.GE. 10 )  )  GO  TO  9070 

WRITE  (OUT, 2060) 

INL INI  I  )  =  BLNK 

GO  TO  90  a 
907  0        CONTINUE 

ENOQ  =  ENOQ  +  1 

1  =  1*1 

J  =  I 

NFLAG  =  -TRUE. 

9072  IF  (.NOT.  ( ( I . LE. LI NE LN ) . AND. ( I NL I N ( I ) . N E . TCHAR ) J   )  GC  V 
*  9073 

QUEUE(J.ENOQ)  =  INLIN( I ) 

IF     (  1NLINU  ).^E.8LNK)     NFLAG    =     .FALSE. 

I     =     I     ♦■     1 

J    =    J    ♦•     I 

GO    TO    9072 

9073  CONTINUE 
NCHARS(ENOQ)     =    J     -     I 

IF( ( I. G T.LI  NELN) .ANO.NFfcAS)     NCH AR S ( cNOQ > = 0 
IF     (  .NOT.(  J.LE.LINELN)     )    GO    TO    907<t 

00    30    K     =    J,  LI  NELN 

OUEUEIK.ENOQ)     =    3LNK 
iO  CONTINUE 

9074  CONTINUE 
9071        CONTINUE 

GO  TO  9063 
906  9     CONTINUE 

GO  TO  90  63 
9062  CONTINUE 
C         GET  LINE  FRO*  QUEUE  INSTEAD 
tl^  =  8Q  ♦  I 
NC  =  NCHARSOQ) 
00  40  1  =  i,  LI NELN 
OUTLINI I )  =  QUEUE! I,BQ) 
4  0     CONTINUE 

IF  ( .NOT. (BQ.EQ. ENOQ)  )  GO  TO  9076 
dQ  =  0 
ENOQ  =  0 
MFLAG  =  .FALSE. 
9076     CONTINUE 
9  06  3  CONTINUE 
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FILE:     SLFD2 


FORTRAN        ri 


NAVAL    POSTER  AOUATF    SCHIHL 


98 


9Q 


RETURN 

CONTINUE 

R  6  W  I  NO     I  N 

CONT INJE 

^R  I  TF     (OUT, 2070) 

OUTt.  IN(  I)    =    BLNK 

RETURN 

END 


20H0 


SUBROUTINE    P'JSH(X) 
PUSHES     A    POINTER     TO 


A    FREE     LINE    ONTO    THE     STACK 


COMMON  /BLK1/     IN, OUT    /BLK6/     STACK, STKPTR 

INTEGER     STKPTR, IN, OUT 

INTE0FR*2     STACK, X 

01  MANSION    STACK!  4-000  > 

EOHMAT     (•     -FREE     LINE    LIST     STACK    OVERFLOW-1) 


IF     (  .NOT. ( STKPTR. GT.  I)     )     GO    TO    ^078 
STKPTR     =     STKPTR    -     1 
STACK! STKPTR)      -    X 
GO    TO    90  7Q 

9078  CONTINUE 

C         STACK  OVERFLOW 

WRITE  (OUT, 2080) 

9079  CONTINUE 
RETURN 
END 


SU8RCUTINE    PGP(X) 

;  POPS    A    POINTER    TO    A    FREE    LINE    FROM    THE    STACK 

COMMON  /BLKi/     IN, OUT    /8LK2/    LPTR , MAXL  IN , EOF     /MLK6/    STACK, STKPTR 

INTEGER     STKPTR, MAXLIN, EOF,  IN, OUT 
INTEGER*2    STACK, LPTR, X 
01  MENS  I  ON    STACK! 4000) , LPTR (400  0) 
2090    FORMAT     (•     -ALL    SYSTEM    BUFFERS     FULL-') 
X    =     STACK! STKPTR ) 

IF     (  .NUT.!  STKPTR     .LT.     MAXLIN)      )    GO    TO    9080 
STKPTR    =    STKPTR    *     I 
GC    TO    908L 
903  0    CONTINUE 

WSITE     <0UT,2090) 
9031    CONTINUE 
RE  TURN 
END 


SU3R0UT I NE    CNVRT  < STR ING  ,1  , J,  N) 

CONVERTS    CHARACTERS     I    THROUGH    J    OF     STRING     I  NT  J    AN     INTEGER    N 
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FILE:     SLEU2  FORTRAN       Tl  ^JAVAl     PDSTGR  ADUATE    SCMfHi 

C 

INTEGtR*2    ST«ING,OIGIT 

INTEGER  I,J,N,K,L 

DIMENSION  STRING (30  J  tOIGIT ( 10) 

OAT  A  C[C,lT/,rt'f,l'f,Z,,'3',"t,t'5t,'e'f'  7*  ,  »  8*  f  »'■»•  / 

N  =  0  v 

00  2  0  K  =  I  t  .J 
L  =  I 

90*2  IF  (.NOT.  ( STRING (K) .NE.DIGIT( L) )  )  GO  TO  90X3 

L  =  L  +  1 

GO  TO  9082 
9083  CONTINUE 

IF  (.NOT.IL  .LE.  10)  )  GO  TO  ^084 

N  ■  N  *  (L-I ) *(10**( J-K ) ) 

GO  TO  90  8^ 
9034  CONT  INUE 

RETURN 
908  5  CONTINUE 
2  0  CONTINUE 

RETURN 

HNO 

SUBROUTINE    COML I N (C L i CL I NE ,N L , N2, E FL AG) 
C 

C  FINOS    AND    INTERPRETS    THE    LINE    NUMBERS    CONTAINED    ON    A 

C  COMMAND    LINE.       CHECKS    FOR    ERRORS. 

C 

INTEGER    CifNl,N2»IfJ 

INTEGfcR*2    CLlNE»8LNKfC0MMA 

LOGICAL    EFLAG 

DIMENSION   CLINEI 80) 

CATA    BLNK/'     • / , COMMA/ • , • / 

EFLAG    =    .FALSE. 
C  FIND    FIRST    DIGIT 

1  =    CI 
J    =    I 

9036  IF  (.NOT.  {  ( CL I NE ( J )  .NE . 8LNK ) . AND.  ( C L  IN E ( J ) . Nc .CMMMA  )  )  )  SO  TO  IV 
+  1 

J  =  J  *  L 
GO  TO  9086 
908  7  CONTINUE 

IF  (  .NOr.( J.GE.80)  )  GO  TO  9033 
EFLAG  -  .TRUE. 
GO  TO  9039 
9083  CONTINUE 
C         CONVERT  FIRST  NUMBER  TO  AN  INTEGER 

CALL  CNVRTtCLINEt I tJ-ltNl) 
C  LOOK  FUR  SECOND  NUMBER 

I  -  J  «■  I 
J  =  I 
90^0     IF  (.NOT.  (CL  INE( J) .NE.BLNK )  )  GO  TO  9091 
J  =  J  +■  1 
GO  TO  9090 
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FILE:  :>LED? 
909  1 


FORTRAN   Tl 


NAVAL  i,rJSTG«  AUUATF  SCMiTll 


)  GO  TO  90  9  2 


CONTINUE 

IF  ( .NOT. (J  .bE.  30) 
tFLAG  =  .TRUE. 
hQ    TO  ^093 
9  09  2     CONTINUE 

IF  (.NOT.  (I  .  EQ.  J)  )  GO  TO  ?0?<+ 
NO  SECOND  NUMBER  EXISTS 
N2  =  Nl 
GC  TO  9095 

9094  CONTINUE 

;  CONVERT  SECONO  NUM3ER 

CALL  CNVRT  (CLINEf  I»J-lt N2 ) 

9095  CONTINUE 

IF  (Nl  ,GT.  N2)  EFLAG  =  .TRUE. 
9093     CONTINUE 
9089  CONTINUE 

RETURN 

ENO 

SUBROUTINE     SEARCH(LINEfSTRINGtNC»MATCH,.MCl  ) 

PART    OF     SLED    PACKAGE 

SEARCHES     'LINE'     FUR     THE    FIRST     OCCURRENCE    OF     'STRING*. 

•MATCH'      IS     SET    TO    '.TRUE.'      IF     A    MATCH    IS    FOUNJ. 

•MC     IS     THE    NUMBER    OF    CHARACTERS     IN     'STRING'     (REQUIRED     INPUT) 

•MCI*     IS    AN    OUTPUT     INDICATING    FIRST     COL     OF    MATCH 


INTEGER     [fJfLtNCtMCl 

INTEGERS    LINE, STRING 

LUGICAL     MATCH 

DIMENSION    L I NE ( 8 0 ) , S  TR I NG ( 30  ) 

■  »" 

J    =    L 

MATCH    =      .FALSE. 
9096     IF     (.NOT.     (  ( .NUT . MATCH ) . AND. ( J .L E.8 i-NC >  )     )     GO    TO     9097 
9098  IF    (.NOT.     ( ( S TRI NG( I )  . M E . L I NE ( J )  )  .AN  0. ( J . LE .3 1-NC ) ) 


-0     TO     9  09 


*9 


909  <3 


9102 


9103 


910* 

9105 
9100 


J    =    J     ♦     1 

GO    TO    9098 
CCNF INUE 

IF    { .NOT.( J.LE.31-NC)     )     GO    TO    9100 
I     =     1 
L    =    J 

IF     (.NOT.      (  (STRING! I *l ) .  EQ.  L  I  NE(  L  ♦  I  )  )     .AND.     (  (  L+l  )  .  I  T  .  <30  )  .  AN 
*0. ( I +1.LE.NC) )     )     GO    TO    9103 
L    =    L    +     1 
I     =     I     *■     1 
GO    TO    9102 
CCNTINOE 

IF     (.NOT.  (I     .EQ.    NO      )     GO    TO     9104 
MATCH    =     .TRUE. 
GO     TO    9  105 
CONT INOE 

J    =    J     f     I 
CONTINUE 
CCNT INUF 
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FILE:     SLEU2 


FORTRAN       Tl 


GO    TO    7096 
9097    CQNT  IN  JE 
MCI     =    J 

RE  TURN 
END 
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Appendix  B 
SLED  PASCAL  Implementation 
(by  R.   Burnham,   R.   Coulter,  and   S.    Smart) 
CONCEPTS 


The  purpose  of  this  programming  project  was  to  implement  a  sim- 
ple text  editor  to  run  under  standard  PASCAL  as  defined  in  Wirth  [1972]. 
The  specifications  for  the  program  are  fairly  extensive  and  seek  to 
define  the  program  in  specific  enough  terms  to  ensure  portability.  In 
designing  and  implementing  this  program,  the  following  two  goals  were 
util  ized: 

a.  PORTABILITY.     The  finished  program  should  be  capable  of  running 
under  any  implementation  of  standard  PASCAL. 

b.  STANDARDIZATION.     The  finished  program  should  abide  by  the 
detailed  specifications  provided  for     the     user     interaction     with     any 

implementation     dependent  features  fully  documented  to  facilitate  use  by 
both  inexperienced  and  experienced  users. 


SYSTEM  DESIGN 


The  overall  design  for  the  text  editor  was  heavily  influenced  by 
the  strict  requirements  of  the  specification  document.  This  specifica- 
tion delineated  the  commands  that  were  to  be  implemented  and  their  for- 
mat. The  primary  design  task  involved  creating  an  efficient  system 
which  included  the  required  commands  in  an  implementation  independent 
program. 


FILE  MANAGEMENT.  The  primary  purpose  of  any  text  editor  is  to 
create  and  modify  text  (character)  files  in  an  interactive  manner.  This 
problem  can  be  separated  into  several  functional  areas.  The  first  of 
these  is  file  manipulation  and  management.  In  as  much  as  PASCAL  was 
designed  primarily  as  a  pedagological  aid,  the  language  lacks  extensive 
input/output  operations.  This  in  turn  allows  the  various  implementa- 
tions to  define  these  operations.  Since  this  would  necessarily  result 
in  operations  which  were  not  portable,  it  was  decided  to  design  the  pro- 
gram to  meet  the  requirement  that  the  user  be  able  to  access  external 
text  files  from  within  the  program  and  that  the  program  not  fail  if  the 
user  attempted  to  access  a  non  existant  file. 


The  Berkeley  Pascal  implementation  for  the  UNIX  operating  system 
(which  was  used  for  this  effort)  defines  three  types  of  files,  in  addi- 
tion to  the  standard  input  and  output  files.  The  first  of  these  con- 
cerns explicit  naming.  In  this  case,  the  file  name  is  placed  in  the 
program  heading  and  acts  as  a  passing  "parameter"  from  the  UNIX  operat- 
ing    system     into     the     program.     The  file  so  named  must  exist  as  a  UNIX 
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file. 


The  second  type  is  an  implicitly  defined  file.  These  files  are 
declared  in  variable  declaration  sections  of  program  blocks  and  have 
scope  in  the  same  manner  as  variables.  When  a  block  is  entered,  the 
file  is  created  with  the  UNIX  filename  tmp.x  where  x  is  an  integer 
representing  the  chronological  order  in  which  the  file  is  used.  When 
the  block  is  exited,  the  file  is  destroyed. 

The  third  type  of  file  uses  a  dummy  file  name  convention.  The 
file  name  is  declared  in  the  variable  declaration  section  but  can  be 
equivalenced  to  an  existing  file  by  the  system  functions  reset  and 
rewrite.  These  functions  create  a  UNIX  path  between  the  dummy  file  name 
and  the  actual  UNIX  name,  which  may  be  supplied  during  execution.  In 
the  case  of  rewrite,  if  no  UNIX  file  exists,   it  is  created. 


The  dummy  file  name  seemed  ideally  suited  to  the  program 
requirement  that  the  user  be  able  to  create  and  access  files  at  will. 
However,  it  is  necessary  to  know  whether  the  file  which  is  to  be  opened 
has  been  previously  created.  Since  it  is  impossible  for  the  program  to 
access  the  UNIX  user's  directory  to  determine  if  files  exist,  it  was 
decided  to  create  a  SLED  directory  containing  the  file  names  and  sizes 
of  all  files  created  in  the  SLED  environment.  In  the  event  that  the 
user  desired  to  edit  a  file  which  existed  in  his  UNIX  directory  but  not 
in  the  SLED  directory,  the  SLED  directory  could  be  edited  to  include 
this  filename.  To  implement  this  feature,  it  was  decided  to  explicitly 
name  this  directory  <directory>  as  a  UNIX  file.  Any  additional  files 
needed  as  temporary  storage  locations  to  be  utilized  while  a  file  was 
being  edited  could  then  be  implemented  as  implicitly  named  files,  since 
their  exi stance  is  not  important  to  the  user  (unless  the  amount  of  file 
space  allocated  to  the  user  by  the  operating  system  is  limited). 


TEXT  MANIPULATION.  As  a  text  editor,  SLED  has  to  carry  out  two 
basic  functions.  The  editor  must  insert  and  delete  lines  of  text  in  the 
file,  and  must  search  lines  for  pattern  matching  and  replacement. 
These  functions  are  related  and  are  the  dominant  factor  in  the  choice  of 
an  effective  data  structure. 


PASCAL  has  several  data  structure  constructors  in  the  language 
which  can  be  used  to  fulfil  these  tasks.  These  include  the  linear 
array,  record,  and  pointer.  The  salient  features  of  these  constructors 
in  regards  to  the  tasks   involved  will    now  be  discussed. 


The  PASCAL  array  is  similar  to  arrays   in     other     languages     with 
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the  exception  that  the  elements  of  the  array  may  be  complex  data  types 
such  as  records.  Since  the  array  must  be  statically  defined,  the 
storage  can  be  highly  efficient.  Lines  of  text  can  be  stored  as  charac- 
ter arrays.  This  has  the  advantage  that  locating  a  given  line  or  char- 
acter can  be  accomplished  by  simply  subscripting  a  variable.  In  addi- 
tion, overhead  is  at  a  minimum  since  no  pointers,  links  or  other  devices 
are  required.  The  array  suffers  from  the  disadvantage  that  insertions 
and  deletions  are  expensive  as  they  require  copying  on  the  average  half 
of  the  array.  Furthermore,  since  the  array  must  be  defined  staticly,  it 
is  likely  that  much  of  the  array  will    be  empty  at  any  one  time. 

The  record  data  structure  is  similar  to  the  array  except  that 
the  elements  of  the  record  need  not  be  of  the  same  data  type.  By 
itself,  the  record  offers  no  advantages  as  compared  to  the  array.  How- 
ever, the  record  fields  can  be  used  to  act  as  pointers  or  links  to  other 
records  thus  allowing  the  creation  of  lists  or  trees.  Trees  offer  the 
advantage  that  sorting,  inserting,  and  deleting  can  be  carried  out  quite 
efficiently.  In  addition,  searching  is  easier  and  more  efficient  than 
with  linked  lists  (although  not  as  efficiently  as  an  array).  The  major 
disadvantage  of  the  tree  is  the  large  amount  of  overhead  required  since 
each  interior  node  must  contain  a  link  to  each  descendant.  The  linked 
list  can  be  considered  as  a  compromise  of  the  tree  structure.  Inser- 
tions and  deletions  are  still  efficient,  but  searching  requires  follow- 
ing a  string  of  pointers  through  the  list.  Since  only  one  pointer  is 
required  for  each  node,  the  amount  of  overhead  is  approximately  halved 
compared  to  the  tree. 

The  pointer  type  represents  a  method  of  dynamic  allocation  of 
records  to  a  linked  list  or  tree  structure.  This  offers  the  advantage 
that  space  need  not  be  allocated  until  actually  required.  Unfor- 
tunately, the  methods  for  allocating  and  de-allocating  memory  space  via 
pointers  is  poorly  defined  in  the  language,  resulting  in  implementation 
dependent  designs.  In  particular,  standard  PASCAL  allows  pointers  to 
records  to  be  destroyed  resulting  in  the  creation  of  garbage.  No  gar- 
bage collection  is  carried  out  by  the  language  to  recover  this  memory. 
Therefore,  a  common  technique  is  to  place  unused  records  into  a  "free" 
list.     This,  however,  defeats  the  idea  of  dynamic  allocation. 

Based  on  these  considerations,  it  was  decided  that  lines  within 
the  text  file  would  be  treated  as  a  linked  list.  This  would  facilitate 
the  line  append  and  line  replace  operations.  The  overhead  for  this 
structure  would  then  be  one  pointer  per  line,  which  was  not  considered 
excessive.  Rather  than  depend  on  the  pointer  type  to  create  and  manage 
list  elements,  it  was  decided  that  the  list  would  consist  of  an  array  of 
line  records,  with  each  record  consisting  of  a  pointer  to  the  next  line 
and  the  contents  of  the  line. 

In  representing  the  characters  of  a  given  line,  it  was  necessary  to 
decide  between  using  another  linked  list  for  elements  of  a  line  or  a 
character  array.     Again,  the  linked  list  would  make  character  insertions 
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and  deletions  efficient.  Since  this  would  require  a  pointer  for  each 
character,  about  half  of  the  memory  space  allocated  would  be  overhead. 
A  possible  compromise  would  be  to  have  each  list  node  consist  of  several 
characters.  This  would  create  difficulties  in  insertion  and  deletion 
and  would  require  a  complicated  algorithm  to  implement.  It  was  decided 
to  represent  the  line  as  a  character  array.  This  had  the  benefit  of 
making  the  pattern  matching  algorithm  easier  to  implement  as  well  as 
reducing  overhead. 

PARAMETERIZATION.  To  allow  for  adaptations  of  the  program  to 
other  systems,  the  parameters  for  the  data  structure  are  defined  in  a 
constant  declaration  block  in  the  main  program.  This  allows  implementa- 
tions to  scale  the  size  of  the  data  structure  to  the  amount  of  memory 
available.  To  further  enhance  portability,  it  was  decided  to  localize 
the  input/output  procedures  in  separate  routines  which  could  be  replaced 
when  implementing  the  system  on  other  machines. 


IMPLEMENTATION 


The  linked  line  list  was  implemented  as  an  array  of  line  records 
named  <buff>.  Each  line  record  consists  of  an  integer  pointer  to  the 
array  element  (record)  of  the  next  line  and  a  120  character  packed 
array.  This  size  allows  the  creation  of  a  line  which  will  cover  the 
linesize  of  most  standard  output  devices.  In  addition,  a  separate 
record,  <head>,  serves  as  a  pointer  into  the  line  list  and  contains  the 
number  of  the  first  line  presently  in  the  buffer. 

GENERAL  STRUCTURE  OF  SLED.  The  editor  basically  has  five 
categories  of  text  processing  procedures.  The  first  of  these  are  the 
control  commands.  There  are  three  types  of  control  commands:  a  change 
of  logical  message  terminator  so  that  the  user  may  select  the  symbol  or 
character  he  desires  to  indicate  an  end  of  a  line  or  command,  a  command 
to  exit  the  editor  mode  which  will  write  the  text  file  to  the  user's 
file  as  well  as  terminate  the  program,  and  a  command  to  open  a  file  for 
the  user,  either  a  new  file  or  an  existing  file  from  his  directory  and 
close  any  previously  opened  file.  As  discussed  in  the  section  on 
design,  this  was  implemented  as  a  separate  SLED  directory.  The  contents 
of  the  directory  consist  of  the  UNIX  file  name  along  the  total  number  of 
text  lines  in  the  file.  In  addition  to  this,  a  scratch  file  is  main- 
tained to  allow  updating  of  the  directory  contents. 

To  implement  the  logical  terminator,  it  was  decided  to  limit  the 
terminators  to  printable  characters.  This  allowed  the  terminator  to 
serve  as  an  end  of  line  signal  in  the  text  buffer,  eliminating  the  need 
for  creating  a  separate  list  of  line  lengths  or  employing  some  other 
line  length  algorithm. 

The     second     group     of     commands     consists     of     those       commands 
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concerned  with  output  of  the  text  file  to  the  CRT  scree.  These  commands 
are  divided  into  those  which  display  a  specific  portion  of  text  and 
those  which  display  large  blocks  of  text.  These  commands,  called  output 
commands,  consist  of  routines  to  display  the  current  line,  a  specific 
line  or  a  designated  number  of  lines.  The  user  optionally  selects  a 
from-1 ine/to-1 ine  pair  of  numbers  for  display  and  defaults  to  the 
current  line  (defined  as  the  last  line  displayed  or  last  line  operated 
upon).  Another  output  command  screens  a  large  block  of  text  for  the 
user  by  using  a  from-1  ine  input.  These  display  commands  allow  the  user 
to  edit  large  portions  of  his  text.  Two  other  commands,  which  do  not 
process  or  handle  text,  and  are  considered  output  commands  are  a  pro- 
cedure to  display  a  command  menu  to  assist  the  user  with  SLED  procedures 
and  a  display  of  the  version  listing  for  a  more  sophisticated  user. 

The  third  type  of  commands  are  those  which  handle  insertion  of 
text  into  the  file.  The  line  insertion  commands  cause  the  editor  to 
enter  the  insert  mode  (all  other  procedures  are  in  the  edit  mode). 
These  commands  allow  insertion  of  new  lines  into  the  text  as  well  as 
replacing  a  specific  line  or  a  group  of  lines  in  the  text.  In  this  way, 
the  user  can  create  or  destroy  portions  of  his  text  file  by  linking  the 
new  lines  into  the  buffer  list. 

A  fourth  command  searches  the  text  for  a  particular  character  or 
string  of  characters  and  displays  them  to  the  user.  Closely  related  to 
this  is  the  command  to  replace  these  characters  and  strings  in  the  body 
of  the  text,  either  in  a  specific  line,  a  group  of  lines  or  throughout 
the  entire  text.  These  two  types  of  commands  along  with  the  line  inser- 
tion commands  form  the  basis  of  the  text  processing  procedures,  while 
the  output  and  control  commands  form  the  basis  of  the  text  handling  pro- 
cedures. To  implement  the  pattern  matching  routine  the  Knuth,  Morris, 
Pratt  algorithm  (as  discussed  in  Knuth  and  elsewhere)  was  utilized. 
This  algorithm  uses  the  concept  of  a  finite  automation  to  determine  how 
far  to  advance  the  pattern  along  the  target  line  in  the  event  of  a 
mismatch  between  the  pattern  and  its  target.  This  is  done  by  creating  a 
table  of  edges  which  represent  failure  in  the  automaton.  As  an  example, 
if  the  pattern  consists  of  three  identical  letters  and  the  first  two 
match  but  the  third  one  does  not,  instead  of  advancing  the  pattern  by 
one  position  relative  to  the  target  the  pattern  can  be  moved  three 
places  since  the  first  character  cannot  possibly  match  the  third  charac- 
ter of  the  target.  The  next  table  determines  how  far  to  advance  dthe 
pattern  if  matching  fails  with  the  ith  character  of  the  pattern.  In 
this  way,  no  back-tracking  in  the  target  is  required  and  the  algorithm 
is  0(n).  The  diagram  attached  as  Figure  Bl.l  shows  the  general  scope  of 
SLED  as  defined  in  the  specification  document.  It  basically  shows  the 
editor  commands  required  by  the  system  grouped  into  the  five  primary 
command  areas;  output,  control,  line  insertion,  string  serch  and  string 
replacement.     The  diagram  also  shows  the  different  editor  command  modes. 

SPECIFIC  STRUCTURE  OF  SLED.  Based  on  the  general  structure  of 
SLED     as     proposed     by  the  problem  specification  and  as  diagramed  above, 
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the  programming  team  made  a  detailed  study  of  the  basic  routines  needed, 
how  these  routines  would  interact  and  the  data  structures  and  file  han- 
dling procedures  that  would  be  needed.  The  Figure  B1.2  is  a  schematic 
of  the  implementation  of  SLED  as  described  in  this  documentation.  In 
implementing  the  SLED  program,  a  top-down  methodology  was  utilized  in 
defining  the  program  processes  needed  to  meet  the  requirements  stated 
above. 

There  are  four  general  sections  or  levels  to  the  program.  The 
first  level  acts  as  a  traffic  controller  for  the  entire  program.  It 
reads  each  of  the  user  input  commands  and  branches  to  the  appropriate 
subroutine.  The  main  program  dunctions  as  this  first  level  and  screens 
the  commands,  eliminating  the  incorrect  ones  and  processing  the  properly 
entered  ones.      It   is  the  framework  in  which  SLED  performs  its  functions. 

At  this  same  level,  the  change  terminator  is  located  primarily 
because  it  does  not  handle  the  user  data  except  to  place  the  new  termi- 
nator symbol  in  the  text  file  (see  procedure  Changeterm  documentation). 
It  is  properly  classified  as  a  special  procedure  in  program  control 
rather  than  text  processing  or  text  handling. 

The  second  level  of  the  program  contains  the  bulk  of  the  text 
processing  procedures  and  consequently,  the  bulk  of  the  coding.  One 
subgroup  contains  the  procedures  which  display  the  lines  of  text  from 
the  user's  file.  In  many  ways,  it  is  similar  to  the  output  section  out- 
lined in  the  original  evaluation.  In  addition  to  the  screen  line  and 
display  line  procedures,  we  have  included  the  string  search  procedure  in 
this  subgroup  because  it  functions  in  a  similar  manner  in  that  it  is 
involved  in  the  display  of  strings  within  the  lines  of  text.  This  sub- 
group interfaces  with  a  major  subgroup  of  the  third  level,  namely  the 
commands  which  read  the  user's  line  number  designations,  translate  them, 
and  fetch  the  lines  from  the  text  file. 

The  second  major  subgroup  of  this  level  consists  of  the  commands 
which  handle  the  majority  of  the  text  insertions,  deletions  and  string 
processing.  These  include  appending  lines,  replacing  Tines  and  replac- 
ing or  changing  strings.  These  commands  were  grouped  together  due  to 
their  similarity  of  function  and  commonality  of  coding.  They  each  have 
major  subprocedures  at  this  level  and  interface  with  the  primary  text 
handling  procedures  at  the  fourth  level. 

Also  found  at  the  second  level  are  two  other  groups  of  pro- 
cedures which  are  of  less  importance  than  the  text  processing  procedures 
but  are  useful  and  necessary  segments  of  the  SLED  program.  The  first  of 
these  are  the  control  commands  which  open  and  close  the  file.  They  are 
obviously  required  file  handling  procedures  and  perform  the  functions 
normally  expected  of  a  text  editor.  They  interface  with  key  implementa- 
tion dependent  procedures  at  the  third  level. 

The  last  major  subgroup  of  the     second     level      is     the     required 
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command  menu  and  version  document.  The  call  to  these  procedures  is 
rather  simple  and  uncomplicated.  Rather  than  palce  the  documents  in  the 
PASCAL  program,  we  decided  to  employ  the  existing  UNIX  directory  to  hold 
them.  These  files  are  explicitly  named  in  the  program  as  <menu>  and 
<version>.  The  file  contains  the  current  command  menu  as  well  as  the 
version  and  any  changes  to  either  of  these  to  facilitate  assisting  the 
user  can  be  made  quickly  and  efficiently. 

The  third  level  of  programming  of  SLED  contains  two  subgroups, 
each  of  which  are  subroutines  for  major  procedures  in  level  two.  The 
first  subgroup  are  theroutines  which  transform  the  user  line  number 
requests  into  from-1 ine/to-1 ine  pairs  and  fetch  the  appropriate  lines 
from  the  user's  text.  They  are  text  handling  commands  and  are  part  of 
the  output   section  in  the  original    specification. 

The  second  subgroup  interacts  with  the  open  and  close  file  rou- 
tines and  are  key  text  handling  procedures.  They  are  dependent  upon  the 
imp!  ementaion  of  PASCAL  in  use  on  the  computer  system.  The  procedures 
utilize  a  directory  file  which,  like  the  menu  and  version,  is  located  in 
the  UNIX  directory. 

The  fourth  level  of  SLED  contains  the  key  text  hadling  commands 
to  move  data  in  and  out  of  the  buffer  when  required.  All  of  the  major 
procedures  of  SLED  call  the  read  buffer  and  write  buffer  routines  to 
move  through  the  user's  file.  These  procedures  are  also  implementation 
dependent. 

A  minor  procedure  of  the  program  is  also  found  at  this  level 
which  causes  the  command  menu  to  be  printed  when  the  user  makes  two  con- 
secutive errors,  a  requirement  of  the  SLED  specification. 

TESTING  AND  EVALUATION 

The  constraints  of  time  prohibited  an  exhaustive  and  thorough 
evaluation  of  SLED.  There  has,  however,  been  extensive  and  continuous 
testing  of  the  modules  of  SLED  in  the  initial  programming  phases  and  as 
the  program  took  its  finished  form.  While  not  exhaustive  the  testing 
and  evaluation  performed  by  the  programming  team  has  resulted  in  a  fully 
operational   and  effective  editor. 

Once  the  major  operating  bugs  were  identified  and  removed  from 
the  program,  the  task  of  specific  debugging  of  each  comman  and  its 
interaction  with  the  other  commands  of  SLED  was  undertaken,  including 
the  testing  of  pathelogical  errors  where  purposely  erroneous  and 
improper  commands  were  input  with  the  express  purpose  of  causing  the 
system  to  perform  incorrectly  or  fail. 

While  we  are  satisfied  that  the  program  will    function  as     required, 
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there  is  further  room  for  testing  of  the  system.  The  limited  time 
available  precluded  the  testing  of  large  files  and  extensive  directories 
and  the  actual  production  of  useable  and  functional  files.  Besides  the 
testing  of  large  files,  a  period  of  time  should  be  spent  by  disin- 
terested parties  (actual  users)  in  using  SLED  to  produce  files  and  test- 
ing the  system.  From  this  evaluation,  any  remaining  system  bugs  should 
be  easily  identified  and  corrected. 


50 


SLED  -  PASCAL 
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